procedure Arhived(Dir, inFile, outFile: String);
var
  arh: TZipForge;
begin
  arh := TZipForge.Create(nil);
  with arh do
    try
      FileName := Dir + outFile;
      BaseDir := Dir;
      Active := true;
      AddFiles(inFile);
      Active := False;
    finally
      Free;
    end;
end;