[Yurk@]

Код:

var 
ArPath, ArData :string;

function DT : string;
var
i:integer;
begin
Result := '['+DateTimeToStr(Now)+']';
for i:=1 to Length(Result) do
if (Result[i]='.') or (Result[i]= ':') or (Result[i]= ' ') then Result[i]:='_';
end;

App:=ExtractFilePath(Application.ExeName); (только на другой форме)
DTt:=DT; (только на другой форме)

ArPath:=exForm.App+'ARCHIVE\imTable'+exForm.DTt+'.rar ';
ArData:=exForm.App+'IMPORT\*.*';

ShellExecute(0,'open','c:\Program Files\WinRAR\rar.exe',PChar('a -ep1 -m5 '+ArPath+ArData),nil,SW_NORMAL);