Управление чужим окном и компонентами

var i, k, count: Word;
    Catalogs: array of string;
    d: TSearchRec;
    MWnd, BHndl: HWND;
begin
 SetLength(Catalogs, 0);
 
 // Поиск каталогов
 if FindFirst('*', faAnyFile, d) = 0 then
 repeat
  if ((d.Attr and faDirectory) = faDirectory) and
     (d.Name <> '.') and (d.Name <> '..') then begin
   SetLength(Catalogs, Length(Catalogs) + 1);  
   Catalogs[Length(Catalogs) - 1] := d.Name;
  end;
  Application.ProcessMessages;
  Label3.Caption := 'Найдено каталогов: ' + IntToStr(Length(Catalogs)) + '. Поиск...';
 until (FindNext(d) <> 0);
 
 FindClose(d);
 Label3.Caption := 'Найдено каталогов: ' + IntToStr(Length(Catalogs)) + '.';
 count := 0;
 
 // Запуск программ и управление ими
 for i := 0 to Length(Catalogs) - 1 do begin
  ShellExecute(MainForm.Handle, nil, PChar(Catalogs[i] + '/AutoClicker.exe'), nil, nil, SW_SHOWNORMAL);
  Application.ProcessMessages;
  sleep(5000);  // Ждем 5 секунд
  Application.ProcessMessages;
  MWnd := FindWindow('wbMainWnd', nil); // Ищем окно
  BHndl := FindWindowEx(MWnd, null, 'Button', 'Start');
  if IsWindow(BHndl) then begin
   PostMessage(BHndl, BM_CLICK, 0, 0);  // Нажимаем кнопку
   inc(count);
   // Включаем ожидание
   k := SpinEdit1.Value * 60; // В секундах
   while k > 0 do begin
    Sleep(1000);
    Application.ProcessMessages;
    Label3.Caption := 'Ожидание... ' + IntToStr(k) + ' сек';
    Label4.Caption := 'Выполнено аккаунтов: ' + IntToStr(count - 1);
   end;
   DestroyWindow(MWnd);
  end; 
 end;