procedure LoadClient(const ClientName: string);
var
  si: STARTUPINFO;
  pi: PROCESS_INFORMATION;

begin
  ZeroMemory(@si,sizeof(si));
  si.cb := sizeof(si);
  if not CreateProcess(nil,PChar(ClientName),nil,nil,false,0,nil,nil,si,pi)
    then
      raise Exception.Create('Не могу запустить ' + ClientName);
  CloseHandle(pi.hThread);
  try
    while WaitForInputIdle(pi.hProcess, 1000) = WAIT_TIMEOUT do
      if Assigned(FormLoad) then // делаем что надо - здесь обновляем форму
        FormLoad.Update;
  finally
    CloseHandle(pi.hProcess);
  end;
end;