Вызывающее окно становится неактивным

[DennerV]

Даброе время суток. Суть проблемы такая:
есть программа "X", в программе имеются 2 кнопки "Старт" и "Стоп".
Моя программа находит хендл окна "X", кнопку "Старт" и посылает ей сигналы (нажатие).
После нажатия кнопки "Старт" программа становится неактивной и на форме все исчезает, остается только заголовок.

procedure TForm1.StartClick;
Var TrayWnd, PanWnd, BtnWnd: hWnd;
    Str:String;
begin
  if EXE_Running('em5svr.exe', False) then
    Begin
      If FindWindow('Tem5svrlog', 'Сервис закачки сканов v11') <> 0 then
        Begin
          TrayWnd:=FindWindow('Tem5svrlog', 'Сервис закачки сканов v11');
          PanWnd:=FindWindowEx(TrayWnd,0,'TPanel', nil);
          BtnWnd:=FindWindowEx(PanWnd,0,'TButton', 'Start'});
          SendMessage(BtnWnd, BM_CLICK, 0, 0);
       end;
end;

При этом по моему перестает работать....процедура по кнопке "Стоп" не срабатывает. Если я в ручную надимаю "Стоп", форма опять становится активной. Ума не приложу в чем дело.....подсткажите, как сделать форму активной?

procedure TForm1.StopClick;
Var TrayWnd, PanWnd, BtnWnd: hWnd;
begin
 if EXE_Running('em5svr.exe', False) then
    Begin
      If FindWindow('Tem5svrlog', 'Сервис закачки сканов v11') <> 0 then
        Begin
          TrayWnd:=FindWindow('Tem5svrlog', 'Сервис закачки сканов v11');
          PanWnd:=FindWindowEx(TrayWnd,0,'TPanel', nil);
          BtnWnd:=FindWindowEx(PanWnd,0,'TButton', 'Stop');
          SendMessage(BtnWnd, BM_CLICK, 0, 0);
        end;
    end;
end;

[DennerV]

Вопрос отменяется .....
Просто вместо SendMessage(BtnWnd, BM_CLICK, 0, 0); написал PostMessage(BtnWnd, BM_CLICK, 0, 0);....заработало