Progress beim komprimieren mit CompressBuf anzeigen

[Zacherl]

Stimmt!
Das OnProgress Ereigniss wird jetzt aufgerufen und die Datei komprimiert.

Aber entweder ist meine ZLib Unit fehlerhaft, oder es gibt irgend einen Trick, wie ich den TDecompressionStream verwenden muss. Auch wenn ich vorher OnDecompressProgress zuweise kommt spätestens bei
OutStream.CopyFrom(cs, cs.Size) der Fehler: "Ungültige Stream Operation".

Ich habe ein wenig runprobiert und der Fehler kommt z.B. auch wenn ich nach cs := TDecompressionStream.Create(instream) auf z.b. cs.Size zugreife!

Fals ihr denkt, dass es an der ZLib liegt, könnte einer die Hochladen?
Weil z.b. der hier angegebene Code zur String Kompression klappt bei anderen aber bei mir kommt eine Fehlermeldung.

Florian