线程中的定时器？？(100分)

我参照《Delphic深度历险》中的例子在线程中实现定时器，根本行不通？

哪行不通？
记得有个TTimeThread的好像

我也想知道。我是这样做的，计较笨
procedure MyThread.Execute;
var
time0,time1,i:integer;
label start1;
begin

time0:=timegettime();
start1:

send[0]:=3;
send[1]:=0;
send[2]:=40;
time1:=timegettime();
if time1-time0>100 then
begin

time0:=time1;
SendData(lsn,send);
RecvData(lsn,recv);
flag:=1;
form1.Timer1.Enabled:=true;

end;
goto start1;

{ Place thread code here }
end;