[lmikle]

как-то так:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);   
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);   

  if Timer1.Interval = 2000 
    Then Timer1.Interval := StrToIntDef(Edit1.Text,35000)
    Else  Timer1.Interval := 2000;
end;