Bitmap speichern mit File of MyRecord

[Jackie1983]

hi,

versuche ein Bitmap zu speichern, nur leider funktioniert das irgend wie nicht.
Hier mal mein Code

Delphi-Quellcode:

Type
  rNetDevice = record
    Typ,
    PositionX,
    PositionY : integer;
    Bitmap : TBitmap;
  end;
...

Procedure Save;
var
  Datei : File of rNetDevice;
  Datensatz : rNetDevice;
begin
  AssignFile(Datei,fName);
  Reset(Datei);
  Seek(Datei, 0);
  // zum Dateianfang
  for i:=0 to fObjList.Count-1 do begin
    device := TNetDevice(fObjList.Objects[i]);
    Datensatz.Typ := 0;
    Datensatz.PositionX := device.Position.x;
    Datensatz.PositionY := device.Position.y;
    Datensatz.Bitmap := TBitmap.Create;
    Datensatz.Bitmap.Width := device.Bitmap.Width;
    Datensatz.Bitmap.Height := device.Bitmap.Height;
    Datensatz.Bitmap.canvas.Draw(0,0,device.Bitmap);
    Write(Datei, Datensatz);
  end;

  CloseFile(Datei);
end;

Hat jemand eine idee?