TBitmap im Array in TImage anzeigen Funktioniert nicht

[Chefx]

Hallo DPs,

Mein problem ist das ich ein Bitmap in ein Array erstelle(das funktioniert alles, wenn ich es speicher ist was drin ) und anzeigen will.
Aber bei den anzeigen funktioniert es irgenwie nicht ?!
Wo liegt mein Fehler?

Delphi-Quellcode:

type fbmps = array[1..12] of TBitmap;
...

var 
bumps:fbumps;
...

procedure ...
begin
 listbox1.items.Add(edit1.text);
     bmps[listbox1.Count-1]:=Tbitmap.create;
    try
      bmps[listbox1.Count-1].LoadFromFile(edit1.text);
    finally
     bmps[listbox1.Count-1].Free;
    end;
end;

procedure ...
begin
     bmps[1]:=Tbitmap.create;
    try
      image1.Picture.Bitmap:=bmps[1];
      // image1.Picture.assign(bmps[1]);   geht auch nicht
    finally
      bmps[1].Free;
    end;
end;

Es kommen auch keine laufzeitfehler.

Ich danke für eure Antworten

MfG
Chefx