SHELL & ZUP

[.Quattro.]

В кавычки возьмите путь к WinRar'у

CREATE(wsh);
WinRar := '"C:\Program Files\WinRAR\WinRAR.exe"';
WinStyle := 1;
Wait := TRUE;
_Run := wsh.Run(WinRar, WinStyle, Wait);
CLEAR(wsh);