function CreateAndWaitSubProcess(const ModuleFileName, CmdLine, CurrDir: string; ShowProcess: Boolean): Boolean;
var
  StartInfo: TStartUpInfo;
  ResultInfo: TProcessInformation;
  PCmdLine, PCurrDir: PChar;
begin
  GetStartupInfo(StartInfo);
  if not ShowProcess then begin
    StartInfo.dwFlags := STARTF_USESHOWWINDOW;
    StartInfo.wShowWindow := SW_HIDE;
  end;
  if CmdLine > '' then PCmdLine := PChar(AnsiQuotedStr(ModuleFileName, '"') + ' ' + CmdLine) else PCmdLine := nil;
  if CurrDir > '' then PCurrDir := PChar(CurrDir) else PCurrDir := nil;
  Result := CreateProcess(PChar(ModuleFileName), PCmdLine, nil, nil, False, NORMAL_PRIORITY_CLASS, nil, PCurrDir, StartInfo, ResultInfo);
  if Result then begin
    WaitForInputIdle(ResultInfo.hProcess, INFINITE); // ждем завершения инициализации
    WaitforSingleObject(ResultInfo.hProcess, INFINITE); // ждем завершения процесса
    //    GetExitCodeProcess(ResultInfo.hProcess, ExitCode); // получаем код завершения
    CloseHandle(ResultInfo.hThread); // закрываем дескриптор процесса
    CloseHandle(ResultInfo.hProcess); // закрываем дескриптор треда
  end;
end;
...

const
  cFNgbak = 'D:\Tools\FB\Servers\40\gbak.exe';
  cCmdStr = '-b "localhost/3104:D:\Tst40.fdb" "D:\Tst40.fbk" -user SYSDBA -pas masterkey -v';
begin
  if not CreateAndWaitSubProcess(cFNgbak, cCmdStr, '', true) then
    ShowMessageFmt('Фигня какая-то: %s', [SysErrorMessage(GetLastError)]);
end;