Array of tbitmap

[R2009]

Hallo,

Ich möchte ein array of tbitmap als record abspeichern und wieder laden.
Das funktioniert jedoch nicht. Ich fürchte ich hab irgendetwas durcheinander gebracht.
Kann mir jemand helfen?
Fehlermeldung gibt's keine alles läuft problemlos, nur ist das Bitmap, nach dem laden, leer.

Delphi-Quellcode:

  Tbitmap_rec=record
     bm:array[1..186] of tbitmap;
  end;

.....

procedure Tmain.Button1Click(Sender: TObject);
var n:integer;f:file of tbitmap;
begin
  for n:= 1 to 186 do
    begin
      bmr.bm[n]:=tbitmap.create;
      bmr.bm[n].Width:=22;
      bmr.bm[n].Height:=22;
      bmr.bm[n].LoadFromFile('D:\test.bmp');
    end;
  assignfile(f,'c:\test.bmr');
  rewrite(f);
     write(f,bmr);
  closefile(f);
  image1.Picture.Bitmap.Assign(bmr.bm[1]);
end;

procedure Tmain.Button2Click(Sender: TObject);
var n:integer;f:file of tbitmap;
begin
  for n:= 1 to 186 do
    begin
      bmr.bm[n]:=tbitmap.create;
      bmr.bm[n].Width:=22;
      bmr.bm[n].Height:=22;
    end; 
  assignfile(f,'c:\test.bmr');
  reset(f);
     read(f,bmr);
  closefile(f);
  image1.Picture.Bitmap.Assign(bmr.bm[1]);
end;

Grüsse und vielen Dank!