[ffpereverzev]

Проблема решена. Моя ошибка была в том, что при переносе кода для архивирования из бат-файла я не учел некоторые особенности. В итоге, получился отличный рабочий код:

Код:

procedure TForm1.Button6Click(Sender: TObject);
Var
  Log_f    :string; //Переменная для хранения пути к лог-файлу
  Bck_f    :string; //Переменная для хранения пути к каталогу бэкапов
  Prj_d    :string; //Переменная для хранения пути к каталогу проекта
  Pnr_f    :string; //Переменная для хранения пути к файлу ПНР
  par:string; // Переменная, для передачи параметров в командную строку

begin
Log_f := Log_file.Text;  //Считываем текст из окна Log_file
Bck_f := Backup_file.Text; //Считываем текст из окна Backup_file
Prj_d := Project.Text; //Считываем текст из окна Project
Pnr_f := PNR_file.Text; //Считываем текст из окна PNR_file
par:='/C "C:\Program Files\WinRAR\Rar.exe" a -agProject_DDMMYYYY_HHMM -ep1 -idc -ilog'+Log_f +' -t '+Bck_f +' '+Prj_d +' -z'+Pnr_f; // Описываем параметры
ShellExecute(Handle, nil, 'cmd.exe', PChar(par), nil, SW_SHOW); //Выполняем необходимую операцию (архивирование)

end;