Problem beim Dekomprimieren mit TZDecompressionStream

[s.h.a.r.k]

Ich schreibe im Moment ja an meiner Log-Komponente und habe da ein Modul, welches die Datein in ein binäres Format schreibt. Hier mal ein Auszug, was passiert, wenn eine neue Log-Meldung ansteht, die über einen Thread geschrieben wird -- wir gehen mal davon aus, dass die Log-Datei schon existiert:

Delphi-Quellcode:

try
  Stream := TFileStream.Create(Filename, fmOpenWrite, fmShareDenyWrite);
  Stream.Seek(0, soFromEnd);
  CompressorStream := TZCompressionStream.Create(Stream);
  Writer := TWriter.Create(CompressorStream, 1024);
  try
    WriteMessage(Writer, LogMsg);
  finally
    Writer.Free();
    CompressorStream.Free();
    Stream.Free();
  end;
except
  { ... }
end;

procedure {...}WriteMessage(Writer: TWriter; Msg: TApLogMessage);
begin
  Writer.WriteListBegin();
  Writer.WriteInteger(Msg.X);
  Writer.WriteString(Msg.Y);
  // etc.
  Writer.WriteListEnd();
end;

D.h. es wird jedes mal der Stream neu geöffnet und die Daten in komprimierter Form dort abgelegt. Folgenden Ansatz habe ich für das Auslesen der Daten:

Delphi-Quellcode:

Stream := TFileStream.Create(FFilename, fmOpenRead);
Stream.Seek(0, soFromBeginning);

DecompressorStream := TZDecompressionStream.Create(Stream);
DecompressorStream.Seek(0, soFromBeginning);

MemoryStream := TMemoryStream.Create();
BufferBytes := DecompressorStream.Read(Buffer, 1024);
while (BufferBytes > 0) do
begin
  MemoryStream.SetSize(MemoryStream.Size + BufferBytes);
  MemoryStream.Write(Buffer, BufferBytes);
  BufferBytes := DecompressorStream.Read(Buffer, 1024);
end;
MemoryStream.Position := 0;

// SetLength(S, MemoryStream.Size);
// MemoryStream.Read(PChar(@S[1])^, MemoryStream.Size);

Reader := TReader.Create(MemoryStream, 1024);
Reader.ReadSignature();
i := Reader.ReadInteger();
s := Reader.ReadString();

Das Problem beim Auslesen ist, dass nur Datenmüll raus kommt und somit nichts sinnvolles im MemoryStream landet. Dies schlägt allerdings erst beim Reader durch, wenn dieser versucht etwas zu lesen. Die beiden kommentieren Zeilen habe ich eingefügt um mal zu schauen, was denn im MemoryStream steht -> Hieroglyphen.

Kann es daran liegen, dass ich beim Auslesen alles auf einmal lesen will und beim Schreiben das immer nur Etappenweise mache? Eine andere Erklärung habe ich eigentlich nicht dafür.