zlib + stream komprimieren

[the_seed]

hallo habe probleme mit der komprimierung eines streams, programm spukt nach ausführung einen fehler von wegen ungültige stream operation!? was mache ich falsch?

Code:

function komprimiere(input:TStream):tmemorystream;
var
  xx: TCompressionStream;
begin
   result:=tmemorystream.create;
    xx := TCompressionStream.Create(clmax, input);
    result.CopyFrom(xx, xx.Size);
    result.position:=0;
 end;