MemoryStream in Filestream sichern - Datenschrott !?

[moelski]

Moin !

Ich habe folgende Procedure:

Delphi-Quellcode:

procedure TForm10.dxBarButton6Click(Sender: TObject);
var fs: TFileStream;
    ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;                     // Memory Stream für Objekt erzeugen
  fs := TFileStream.Create('test.dat',fmCreate);  // Filestream erzeugen in dem alles abgelegt wird

  aqDockingManager1.SaveToStream(ms);             // aqDockingManager1 - Daten in dem Stream ablegen

  fs.WriteBuffer(ms, ms.Size);                     // aqDockingManager1 abspeichern

  fs.Free;
  ms.Free;
end;

Wenn ich das debugge dann kann ich feststellen das im MemoryStream MS alles sauber drin steht. Nämlich die Infos von DockingManager1. Wenn ich mir dann aber die Datei ansehe die durch TFileStream erzeugt wird, dann steht da was gänzlich anderes drin - nur Datenschrott.
Und ein Einlesen klappt dann logischerweise auch nicht mehr.

Kann mir jemand sagen wo mein Fehler liegt ? Warum wird der MemoryStream nicht sauber weggeschrieben ?