Nein, diesmal musst du aus "xx" Lesen, und nicht da reinschreiben...
Delphi-Quellcode:
result := tmemorystream.create;
xx := TdeCompressionStream.Create(>>>input<<<);
>>>result<<<.CopyFrom(xx, xx.Size);
xx.Free; // !! NIcht vergessen, da der interne Buffer des TCompr.Streams sonst nicht geflusht wird
result.position:=0;