线程中的控件调用

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    UsedThread: TBitBtn;
    NoUsedThread: TBitBtn;
    Button1: TButton;
    Edit1: TEdit;
    procedure UsedThreadClick(Sender: TObject);
    procedure NoUsedThreadClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;implementation
var
  hThread:Thandle;//定义一个句柄
  ThreadID:DWord;{$R *.dfm}function MyThreadFunc(P:pointer):Longint;stdcall;
var
  i:longint;
  DC:HDC;
  S:string;
begin
  DC:=GetDC(Form1.Handle);
  for i:=0 to 500000 do begin
    S:=Inttostr(i);
    Textout(DC,10,10,Pchar(S),length(S));
    **edit1.text:=s;
  end;
  ReleaseDC(Form1.Handle,DC);
end;
procedure TForm1.UsedThreadClick(Sender: TObject);
begin
  hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);  if hThread=0 then
     begin
        messagebox(Handle,'Didn’tCreateaThread',nil,MB_OK);
     end
  else
     showmessage(intToStr(hthread));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    TerminateThread(hthread,ThreadID);
end;end.
如果我想在**的位置调用EDIT控件,程序该怎么改?