Okay danke das mit der random Sache funktioniert.
Mit dem Bitmap anzeigen könnte mir dieser Code weiterhelfen ?
Delphi-Quellcode:
Image.Picture.Graphic := Bitmap; { Grafik durch neues Bitmap ersetzen }
CurrentFile := ''; { Verweist auf unbenannte Datei }
Bitmap.Free;
Die Bitmaps wollte ich in den Programmordner legen und sie dann in einem TImage anzeigen lassen.