Delphi高手过来帮帮忙

TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
ListBox1: TListBox;
BtnPing: TButton;
BtnClearText: TButton;
BtnUseThread: TBitBtn;
ICMP: TIdIcmpClient;
SpinEdit1: TSpinEdit;
procedure BtnUsedThreadClick(Sender: TObject);
procedure ICMPReply(ASender:TComponent;const AReplyStatus:TReplyStatus);
procedure BtnpingClick(Sender: TObject);
procedure BtnClearTextClick(Sender: TObject);

function MyThreadFunc(P:pointer ):Longint;
var icmp: TIdIcmpClient;
begin
ICMP := TIdIcmpClient.Create(nil);
ICMP.Host := form1.Edit1.Text ;
ICMP.ReceiveTimeout := 500;
ICMP.OnReply := Form1.ICMPReply;
ICMP.Ping;
end;

procedure TForm1.BtnUsedThreadClick(Sender: TObject);
var
hThread:Thandle;
ThreadID:DWord;
i:integer ;
begin //创建线程，同时线程函数被调用