procedure TForm1.Button1Click(Sender: TObject);
begin
sleep(4500);
setcursorpos(107,556);  // кнопка поиска
mouse_event(mouseeventf_leftdown,0,0,0,0);
mouse_event(mouseeventf_leftup,0,0,0,0);
sleep(4500);
setcursorpos(482,505);  // поиск плитки
mouse_event(mouseeventf_leftdown,0,0,0,0);
mouse_event(mouseeventf_leftup,0,0,0,0);
sleep(4500);
setcursorpos(661,378); // выбрать плитку
mouse_event(mouseeventf_leftdown,0,0,0,0);
mouse_event(mouseeventf_leftup,0,0,0,0);
sleep(4500);
setcursorpos(896,508);  //кнопка сбор
mouse_event(mouseeventf_leftdown,0,0,0,0);
mouse_event(mouseeventf_leftup,0,0,0,0);
sleep(4500);
setcursorpos(938,151); // кнопка новые войска
mouse_event(mouseeventf_leftdown,0,0,0,0);
mouse_event(mouseeventf_leftup,0,0,0,0);
sleep(4500);
setcursorpos(836,611); //на марш
mouse_event(mouseeventf_leftdown,0,0,0,0);
mouse_event(mouseeventf_leftup,0,0,0,0);
sleep(4500);
button1.Click;
end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  MyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure Spat;
  end;

var
  Form1: TForm1;
  TMyThread: MyThread;
implementation

{$R *.dfm}

procedure MyThread.Execute;
begin
sleep(4500);
Synchronize(Spat);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TMyThread:=MyThread.Create(False);
end;

procedure MyThread.Spat;
begin
setcursorpos(107,556);

setcursorpos(482,505);

setcursorpos(661,378);

Setcursorpos(896,508);
end;

end.