unsigned threadId;
  HANDLE hThread;
  bool isOpen = false;
  hThread = (HANDLE)_beginthreadex(NULL, 4096, My_Open, (void *)isOpen, 0, &threadId);
  if(hThread == INVALID_HANDLE_VALUE)
  {
    ShowMessage("Ошибка.");
    return;
  }
  while(WAIT_TIMEOUT == WaitForSingleObject(hThread, 100))
    Application->ProcessMessages();
  CloseHandle(hThread);

   STARTUPINFO startupInfo;
    ZeroMemory(&startupInfo, sizeof(startupInfo));
    startupInfo.cb = sizeof(startupInfo);
    PROCESS_INFORMATION processInfo;
    if (!CreateProcess(m_strExePath, NULL, NULL, NULL, FALSE, 
            0, NULL, m_strWorkingDir, &startupInfo, &processInfo))
       return;

     WaitForInputIdle(processInfo.hProcess, 60000);

     CloseHandle(processInfo.hThread);
    CloseHandle(processInfo.hProcess);

MsgWaitForMultipleObjectsEx(1,&hThread,INFINITE,QS_PAINT, 0);

BOOL fQuit = FALSE; // надо ли завершить цикл? 

while (!fQuit) 
{ 

// поток пробуждается при освобождении обьекта ядра ИЛИ 
// для обработки сообщения от пользовательского интерфейса 

DWORD dwResult = MsgWaitForMultipleObjectsEx(1, &hEvent, INFINITE, QS_ALLEVENTS, MWMO_INPUTAVAILABLE); 

switch (dwResult} 
{ 

case WAIT_OBJECT_0: 

// освободилось событие 
break; 

case WAIT_OBJECT_0 + 1: 

// в очереди появилось сообщение 
// разослать все сообщения MSG msg; 

while (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE)) 
{ 

if (msg.message == WM_QUIT) 
{ 

// сообщение WM_QUIT - выходим из цикла 
fQuit = TRUE; 

} 
else 
{ 

// транслируем и пересылаем сообщение 
TranslateMessage(&msg); 
DispatchMessage(&msg);

} 

} 

// наша очередь пуста 
break; 

} 

}

H>MsgWaitForMultipleObjectsEx(1,&hThread,INFINITE,QS_PAINT, 0);
H>

      Repeat
        ret := MsgWaitForMultipleObjects(
                 1,             { 1 handle to wait on }
                 processHandle, { the handle }
                 False,         { wake on any event }
                 INFINITE,      { wait without timeout }
                 QS_PAINT or    { wake on paint messages }
                 QS_SENDMESSAGE { or messages from other threads }
                 );
        If ret = WAIT_FAILED Then Exit; { can do little here }
        If ret = (WAIT_OBJECT_0 + 1) Then Begin
          { Woke on a message, process paint messages only. Calling
            PeekMessage gets messages send from other threads processed. }
          While PeekMessage( msg, 0, WM_PAINT, WM_PAINT, PM_REMOVE ) Do
            DispatchMessage( msg );
        End;
      Until ret = WAIT_OBJECT_0;