über 25 MB zippen

[HomerGER]

hi
ich versuche grade über netzwerk so ca. 25MB zu zippen mit ABzipper von Abbrevia

es müssen ordner und dateien gezippt werden

hier mal mein code

Delphi-Quellcode:

//Datei zippen
Procedure Zippen_ZU(file_s : String);
var
quelle_s : String;
files_sl : TStringList;
i : Integer;
begin
    quelle_s := Ini_Lesen_IU(g_ini_file_s, 'System', 'quelle') + '\';

    files_sl := TStringList.Create;
    files_sl.Clear;
    try
        dwListFilesRecursive(quelle_s , '*.*', True, files_sl);

        Haupt_Form.Zipper1.FileName := file_s;

        for i := 0 to files_sl.Count -1 do
        begin
            Haupt_Form.Zipper1.AddFiles(files_sl.Strings[i], 0);
        end;

    finally
        files_sl.Free;
    end;
end;

dwListFilesRecursive ist von delphiworks

nur nach 4 stunden war immernoch nciht fertig

könnt ihr helfen ?