Image Visible ?

[Blackheart]

Vielen Dank Hawkeye219
Das klappt soweit, falls das Image false ist nimmt er das nächste.
Nur das er Mir immer nur das letzte Bild "Wuerfel[5]" anzeigt.
Wüsste jetzt aber nicht wo da der Fehler liegt.

Delphi-Quellcode:

var
 Wuerfel: Array of Integer;
 i:Integer;
begin
   SetLength(Wuerfel,6);
   SetLength(Images,6);
   Images[0] := Image1;
   Images[1] := Image2;
   Images[2] := Image3;
   Images[3] := Image4;
   Images[4] := Image5;
   Images[5] := Image6;
   for i:=0 to 5 do
   begin
      Wuerfel[i]:=random(6)+1;
      Listbox1.Items.Add(IntToStr(Wuerfel[i]));
   end;
      if GetVisibleImage(Image) then
      begin
        Image.Picture.LoadFromFile (ExtractFilePath(Paramstr(0))+IntToStr(Wuerfel[0])+'.bmp');
        Image.Picture.LoadFromFile (ExtractFilePath(Paramstr(0))+IntToStr(Wuerfel[1])+'.bmp');
        Image.Picture.LoadFromFile (ExtractFilePath(Paramstr(0))+IntToStr(Wuerfel[2])+'.bmp');
        Image.Picture.LoadFromFile (ExtractFilePath(Paramstr(0))+IntToStr(Wuerfel[3])+'.bmp');
        Image.Picture.LoadFromFile (ExtractFilePath(Paramstr(0))+IntToStr(Wuerfel[4])+'.bmp');
        Image.Picture.LoadFromFile (ExtractFilePath(Paramstr(0))+IntToStr(Wuerfel[5])+'.bmp');
      end;
end;