[xaknik]

Код:

var
  Form1: TForm1;
  pt:TPOINT;
  h:DWORD;


procedure TForm1.Timer1Timer(Sender: TObject);
 begin
   GetCursorPos(pt);
   h:=WindowFromPoint(pt);
   SendMessage(h,WM_LBUTTONDBLClK,0,0);
 end;

На седьмой строке не пашет таймер.
Вот Ошибка [Error] Unit1.pas(23): Undeclared identifier: 'Timer1Timer'