procedure TForm1.Button1Click(Sender: TObject);
begin
SetCursorPos(100, 100); //Coordonnée en X et en Y
end;