Takto take ne.
procedure TForm1.Button3Click(Sender: TObject);
var
filename,parameters:string;
begin
filename := 'd:\ZALOHUJ DELPHI\WinRAR\WinRAR.exe ';
parameters := 'A -r -m5 "g:\111111\ARDUINO" "d:\ARDUINO\"';
ShellExecute_AndWait (filename + parameters);
beep;
end;