Executar aplicação DOS externa

{ **** Executa um processo **** }
function ExecProcess(FileName, Params: String; WindowState: Word; ProcessName: String = ´´; Wait: Boolean = True): Boolean;
var SI: TStartupInfo;
    PI: TProcessInformation;
    CmdLine: String;
begin
  CmdLine:= FileName + ´ ´ + Params;
  FillChar(SI, SizeOf(SI), #0);
  with SI do
    begin
      cb:= SizeOf(SI);
      dwFillAttribute:= FOREGROUND_RED;
      if ProcessName <> ´´ then lpTitle:= PChar(ProcessName);
      wShowWindow:= WindowState;
      dwFlags:= STARTF_USESHOWWINDOW + STARTF_USEFILLATTRIBUTE;
    end;
  Result:= CreateProcess( nil, PChar(CmdLine), nil, nil, False,
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                          PChar(ExtractFilePath(FileName)), SI, PI
                         );
  if Result then
    begin
      if Wait then
        WaitForSingleObject(PI.hProcess, INFINITE);
      CloseHandle(PI.hProcess);
      CloseHandle(PI.hThread);
    end;
end;

// ********************************************** \\

procedure Tfrm_backup.btn_executarClick(Sender: TObject);
var gParams: String;
begin
  gParams:= ´-b -v -y ´  + edt_LogFile.Text + ´ ´ +
            ´-user ´     + edt_usuario.Text + ´ ´ +
            ´-password ´ + edt_senha.Text   + ´ ´ +
            edt_DatabaseFile.Text           + ´ ´ +
            edt_BackupFile.Text;
  { **** }
  ExecProcess(edt_gbakPath.Text, gParams, SW_SHOW,´Back-Up´);
  { **** }
end;

var
  pathEmu, pathRom: string;
begin
  pathEmu := ExtractShortPathName(´c:\emulador de mega drive\genecyst.exe´);
  pathRom := ExtractShortPathName(´c:\emulador de mega drive\roms do emulador\booger man.smd´);
  WinExec(PChar(Format(´¬s ¬s´, [pathEmu, pathRom])), SW_SHOWNORMAL);