...*seufz*...
Delphi-Quellcode:
if Components[i] is TImage then
begin
DateinameIndex:=Random(ListeVonDateinamen.count);
TImage(Components[i]).Picture.LoadFromFile(ListeVonDateinamen[DateinameIndex]);
TImage(Components[i]).Tag:= DateinameIndex;
ListeVonDateinamen.Delete(DateinameIndex);
end;
fertsch...
Quatsch. Eben hab ich gesehen, daß du keine fortlaufenden Bilder hast. Damit kannst du den Index nicht verwenden. Du mußt dir was einfallen lassen, den "Wert" des Bildes zu ermitteln.