Bitmap und Stream

[stahli]

Ich schreibe Daten in einen Stream und möchte mittendrin auch Bitmaps speichern:

Delphi-Quellcode:

procedure TDPerson.SaveToFileStream(S: TFileStream; W: TWriter);
begin
  W.WriteString(Name);
  W.WriteString(Ort);
  Bitmap.SaveToStream(S);
end;

Der Stream wird geöffnet übergeben und enthält bereits Daten.
Bitmap.SaveToStream(S) leert aber den Stream und schreibt sich dann hinein.

Eine frühere Version mit einem Blob-Feld ging
  W.WriteVariant(FieldByName('Bild').AsVariant); Ich könnte notfalls das Bitmap in einen MemoryStream schreiben und diesen dann in den "richtigen Stream".

Gibt es einen einfacheren Weg?

stahli