procedure TForm1.Button1Click(Sender: TObject);
var
point:TPoint; // kursor'un bulundugu yer
begin
getcursorpos(point); // kursor'un bulundugu yerin kordinatlarini oku
setcursorpos(350,500); // kursor'u yeni yerine yonlendir.
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);// tikla
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); //
setcursorpos(point.x,point.y); // kursor'u eski yerine götürend;
end;