unit Unit2; interface uses Classes,unit1,windows; //引用主窗口的单元 type Thread_test = class(TThread) private { Private declarations } protected procedure Execute; override; end; implementation { Thread_test } var i:Integer=1; procedure Thread_test.Execute; begin while i=1 do begin //因为I 永远=1 所以一直不会退出 Form1.edt1.Text:=Form1.edt1.Text+'>';//改变form1 的edt1 的值 sleep(50); end; end; end. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); //窗口打开时 private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses Unit2;//引用要使用到的线程单元 var Test:Thread_test;//定义线程 procedure TForm1.FormCreate(Sender: TObject); begin //主窗口建立时 启动线程 test:=Thread_test.Create(false);//参数 false 为建立后马上执行 end; end.