Hallo,
sieht so aus, als machtest Du eine Art Bildschirmschoner, der z.B. nebenbei Fotos aus einem bestimmten Ordner auf der Festplatte anzeigt.
Ich würde Dir empfehlen, vor dem Start Deiner 1-stündigen Intervalle mit FindFirst-FindNext-FindClose die Dateien des Ordners vor dem Start Deines Programms zu ermitteln und in einer TStringList zu speichern. Da kannst Du z.B. auch mit Sorted:=true die Dateinamen sortieren, falls Du das willst. Beim Start Deines Zyklus fängst Du beim Index 0 der Stringliste an, lädst die erste eingetragene Datei (immer vorher prüfen, ob noch auf der Festplatte!!!) in deine Image-Komponente und erhöhst dann einen Zähler um 1. Erreichst Du beim Zähler den Wert der Anzahl der Bilder (index=StringList.Count), dann setzt Du den Zähler/Index wieder auf 0 und die Sache beginnt von vorn. Ach ja: Wenn ein Bild nicht geladen werden konnte, gleich zum nächsten Zyklus gehen, sonst dauert es für das nächste Bild 2 Stunden.
Viel Erfolg. Ich hoffe, es hilft weiter.