Erstelle doch einfach eine ImageList und mach die Bilder da rein.
(Doppelklick auf die TImageList)
Schreib dann zum zufälligen auswählen einfach:
Delphi-Quellcode:
var
Bitmap : TBitmap;
begin
Bitmap := TBitmap.Create;
try
ImageList1.GetBitmap(random({Maximalanzahl der Bilder}), Bitmap);
Image1.Picture.Bitmap := Bitmap;
finally
FreeAndNil(Bitmap);
end;
Bis Bald
