关于线程的问题！！求教！！！

丨夜漆黑

下面是线程入口函数
function TimingButtonFunc(p: Pointer): Integer; stdcall;
var
  iTime: Integer;
begin
  iTime := Integer(p);
  while True do
  begin
    FrmGame.SetPressKey(0);                                ①
    FrmGame.Text := IntToStr(Random(100));      ②
    Sleep(iTime*1000);
  end;
  Result := 0;
end;
下面是创建线程。
    if hTimer=0 then      hTimer := Windows.CreateThread(nil, 0, @TimingButtonFunc, Ptr(30), 0, ID);
hTimer是线程句柄全局变量我纳闷的是，第②句执行有效果  第①句为什么就没有反映呢！这个函数是按0键  小弟刚接触多线程！ 我想实现的是每隔iTime秒按一次0键

丨夜漆黑

没人知道么，求跟进啊 ！！！