[Alegun]

Под D7 работает вот такое

Код:

var
 tid: Cardinal;
procedure tp(hWnd: HWND; uMsg, idEvent: UINT; dwTime: DWORD); stdcall;
begin
  form1.ListBox1.Items.Append('11');
end;

procedure tt;
begin
 SetTimer(Form1.Handle,1,100,@tp);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 BeginThread(nil,0,@tt,nil,0,tid);
end;

нету просто в ней некоторых типов используемых в хеке