Record mit TBitmap in Stream speichern

[Stephan]

Hi,

Ich habe einen Record:

Code:

  TJoinRecord = packed Record
    Name : String;
    bild : TBitmap;
  end;

  var
  JoinRec : TJoinRecord;


procedure TForm1.Button5Click(Sender: TObject);  //Button um Bild zu laden
begin
 JoinRec.Name := edit2.text;
 JoinRec.bild.Free;
 JoinRec.bild := TBitmap.Create;
 JoinRec.bild.LoadFromFile('C:\IMGP0445.bmp');  //Bild laden
end;


procedure TForm1.Button6Click(Sender: TObject);
var
  Stream, f: TFileStream;
  frEdit2: string;
  count: integer;
begin
  Stream:=TFileStream.Create('C:\test.dat',fmCreate);
  try
   Stream.Position := 0;
   
   //EDIT SPEICHERN
   frEdit2 := edit2.text;
   count := Length(frEdit2);
   Stream.Writebuffer(count,SizeOf(Integer));
   Stream.WriteBuffer(frEdit2[1],count);
   //ENDE EDIT SPEICHERN

   //BILD SPEICHERN
   count := SizeOf(JoinRec.bild);             <-- funktioniert nicht. Wie kann ich die Größe des Bildes ermitteln?
   Stream.Writebuffer(count,SizeOf(Integer));
   Stream.WriteBuffer(JoinRec,count);         <-- wie kann ich das Bild dann über den Stream speichern?
   //ENDE BILD SPEICHERN

  finally
   Stream.Free;
  end;
end;

Mein Problem liegt beim Speichern des TBitmap im Stream.