TBitmap im Array in TImage anzeigen Funktioniert nicht

[Chefx]

danke für die hilfe, hab das so gemacht wie s.h.a.r.k (find ich für meine zwecke auch besser ).
Ich hab nur noch ein Problem wenn ich es speicher sind da nur 8 Bytes drin, die Bilder sind so um die 90 Kb große und wenn ich es dann in ein anderem Programm öffne funktioniert das nicht wo liegt mein Fehler?
Hier der Code:

Delphi-Quellcode:

type fbmps = record
      name:Tstringlist;
      bmplist:Tobjectlist;
end;

...

var
  bmps:fbmps;

...

procedure ...;
var data:file of fbmps; i:integer;
begin
  if savedialog1.execute then begin
    AssignFile(data,savedialog1.filename);
    Rewrite(data);
    write(data,bmps);
    closefile(data);
  end;
end;

procedure ....;
var bmp:TBitmap;
begin
  listbox1.items.Add(edit1.text);
  bmp:=TBitmap.Create;
  bmp.LoadFromFile(edit1.text);
  bmps.bmplist.Add(bmp);
  Image1.Picture.Bitmap.assign(TBitmap(bmps.bmplist[bmps.bmplist.count-1]));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bmps.bmplist:=Tobjectlist.Create;
end;

Programm2 zeigt denn Fehler an:
[delphi]

Code:

Erste Gelegenheit für Exception bei $758D9617. Exception-Klasse EListError mit Meldung 'Listenindex überschreitet das Maximum (0)'. Prozess OSeaF.exe (5572)

Also ist in der Objektliste garnichts dirn?!?

Warum hat er es nicht gespeichert ?
Liegt das an meiner Speichermethode ?


MfG
Chefx