Du lädst alle Dateinamen, die sich im Order befinden in eine TStringlist. Danach Kannst einfach mit nem Zufallswert eins der Bilder ansprechen. Du solltest aber überprüfen, ob das Bild noch vorhanden ist (FileExists) und ob die Datei ein Bild ist (ExtractFileExt)
Edit: Herzlich Willkommen in der
DP!