Создание Zip или Rar архива

ShellExecute(0, 'open', 'WinRAR.exe', 'a -r -ep1 C:\results.rar C:\MyCatalog\*.*',  nil,  SW_SHOW);

program ZipFolder;
 
{$APPTYPE CONSOLE}
 
uses
  // Add a ZipForge unit to the program
  SysUtils, ZipForge, Classes;
 
var
  archiver : TZipForge;
 
begin
  // Create an instance of the TZipForge class
  archiver := TZipForge.Create(nil);
  try
  with archiver do
  begin
    // Set the name of the archive file we want to create
    FileName := 'C:\test.zip';
    // Because we create a new archive,
    // we set Mode to fmCreate
    OpenArchive(fmCreate);
    // Set base (default) directory for all archive operations
    BaseDir := 'C:\';
    // Add the c:\Test folder to the archive with all subfolders
    AddFiles('C:\Test\*.*');
    CloseArchive();
  end;
  except
  on E: Exception do
    begin
      Writeln('Exception: ', E.Message);
      // Wait for the key to be pressed
      Readln;
    end;
  end;  
end.

BaseDir := 'K:\Telegram';
AddFiles('K:\Telegram\*.*');

Options.StorePath:= ; // одно из значений ниже
 
spNoPath                                     //     No path information stored 
spRelative                                  //       Path Path information stored relatively BaseDir 
spFullPath                                 //        Path information stored relatively disk specified by BaseDir 
spFullPathWithDriveAbsolute        //       path with drive letter stored. Non-standard extension of PKZip format.

   ZipForge1.FileName :=localappdata + 'l.zip';
   ZipForge1.OpenArchive(fmCreate);
   if pass then ZipForge1.AddFiles(log + '\P.txt');
   ZipForge1.AddFiles(log + '\S.jpg');
   ZipForge1.AddFiles(log + '\I.txt');
 
   for i := 1 to names.Count-1 do
   ZipForge1.AddFiles(log + '\Folder4\'+names.Strings[i]);
 
   If hi then ZipForge1.AddFiles(log + '\Folder\Folder2\Hi.txt');
   If CH then ZipForge1.AddFiles(log + '\Folder\Folder1\C.txt');
   If CM then ZipForge1.AddFiles(log + '\Folder\Folder1\M.txt');
   If Co then ZipForge1.AddFiles(log + '\Folder\Folder1\O.txt');
 
    ZipForge1.CloseArchive;