[Grosbeak_Coder]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var  x,y: integer;
begin
x:=10;
y:=10;
SetCursorPos(x, y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;