function ExecAndWait(sExe, sCommandLine: string): Boolean;

var

  dwExitCode: DWORD;

  tpiProcess: TProcessInformation;

  tsiStartup: TStartupInfo;

begin

  Result := False;

  FillChar(tsiStartup, SizeOf(TStartupInfo), 0);

  tsiStartup.cb := SizeOf(TStartupInfo);

  if CreateProcess(PChar(sExe), PChar(sCommandLine), nil, nil, False, 0, nil, nil, tsiStartup, tpiProcess) then

  begin

    if WAIT_OBJECT_0 = WaitForSingleObject(tpiProcess.hProcess, INFINITE) then

    begin

      if GetExitCodeProcess(tpiProcess.hProcess, dwExitCode) then

      begin

        if dwExitCode = 0 then

          Result := True

        else

          SetLastError(dwExitCode + $2000);

      end;

    end;

    dwExitCode := GetLastError;

    CloseHandle(tpiProcess.hProcess);

    CloseHandle(tpiProcess.hThread);

    SetLastError(dwExitCode);

  end;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

ExecAndWait('123.exe','');

end;