Проблема решена. Моя ошибка была в том, что при переносе кода для архивирования из бат-файла я не учел некоторые особенности. В итоге, получился отличный рабочий код:
Код:
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;