Читы для печенек) осторожно Delphi⁠⁠

SetCursorPos(X,Y); //устанавливает курсор в нужную точку
mouse_event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0); //нажимает левую кнопку мыши
mouse_event(MOUSEEVENTF_LEFTUP,X,Y,0,0); //отпускает левую кнопку мыши

например мой корявый код
procedure TForm1.Button1Click(Sender: TObject);
begin
if Timer1.Enabled = true
then Timer1.Enabled := false
else Timer1.Enabled := true;
SetCursorPos(150,400);
Timer1.Interval:=1;
end;

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