Speichern einer Komponente mit Bild

[monty.ms]

Hallo,

Ich hab hier ein kleines Problem, mit dem ich nicht ganz zurecht komme:

Ich hab diese Klasse:

Delphi-Quellcode:

type
  TTest = class(TComponent)
  private
    FImage: TImage;
  published
    property Image: TImage read FImage write FImage;
  end;

Als erstes erstell ich ein Objekt der Klasse:

Delphi-Quellcode:

 TestComponent := TTest.Create(Form1);
 TestComponent.Image := TImage.Create(Form1);

... dann lad ich das Bild hinzu:

Delphi-Quellcode:

 OpenDialog1.Execute;
 TestComponent.Image.Picture.LoadFromFile( OpenDialog1.FileName );

Und anschließend speicher ich die Komponente:

Delphi-Quellcode:

 tmpStream := TFileStream.Create('C:\test.dat',fmCreate);
 Try
  tmpStream.WriteComponent( TestComponent );
 Finally
  tmpStream.Free;
 End;

Aber aus irgendeinem Grund, speichert er das Bild nicht mit ab. Das Laden der Komponente funtioniert. Man sieht halt schon an der Größe der gespeicherten Datei, dass da was fehlt.

Ich hab zum Test mal, ein Objekt der Klasse TImage gespeichert (anstatt TTest). Das hat funktioniert. Wieso das hier nicht?

Danke schonmal für jede Hilfe