Запуск WinRar с параметрами через CreateProcess

ShellExecute(Handle, "open", "C:/Program Files/WinRAR/WinRAR.exe", Parametr.t_str() , NULL, SW_SHOWNORMAL);

String Path=ExtractFilePath(ParamStr(0));
String WayToBase=Path+"\Data\\DataBase.mdb";
String Res=Path+"\Data\\BackUp\\backup.rar";
String Parametr="a -ep1 -ag_DD.MM.YY-HHMM \""+Res+"\""+" "+"\""+WayToBaseT+"\"";

CreateProcess("C:/Program Files/WinRAR/WinRAR.exe", Parametr.t_str(),
NULL,NULL,FALSE,NULL,NULL,NULL,&si,&pi);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   String EXE = "\"C:\\Program Files\\WinRAR\\RAR.exe\"",
   Res = String().sprintf(L"\"%sData\\BackUp\\backup.rar\"", ExtractFilePath(ParamStr(0))),
   WayToBase = String().sprintf(L"\"%sData\\DataBase.mdb\"", ExtractFilePath(ParamStr(0))),
   Parametr = String().sprintf(L"%s a -ep1 -ag_DD.MM.YY-HHMM %s %s", EXE, Res, WayToBase);
 
   STARTUPINFO si;
   ZeroMemory(&si, sizeof(STARTUPINFO));
   si.cb = sizeof(STARTUPINFO);
   PROCESS_INFORMATION pi;
   if(!CreateProcess(0, Parametr.c_str(), 0, 0, FALSE, 0, 0, 0, &si, &pi))
    {
      String s = String().sprintf(L"Can not create process (error %d)", GetLastError());
      Application->MessageBox(s.c_str(), L"Warning", MB_OK | MB_ICONEXCLAMATION);
      return;
    }
  CloseHandle(pi.hProcess);
  CloseHandle(pi.hThread);
}

String s = String().sprintf(L"Can not create process (error %d)", GetLastError());
      Application->MessageBox(s.c_str(), L"Warning", MB_OK | MB_ICONEXCLAMATION);
      return;

DWORD ExitCode;
WaitForInputIdle(pi.hProcess, INFINITE);  //Ждем завершения инициализации.
WaitForSingleObject(pi.hProcess, INFINITE); //Ждем завершения процесса.
GetExitCodeProcess (pi.hProcess,&ExitCode); //Получаем код завершения.