Ich würde mir eine Konstante anlegen:
const FileNames: array [0..3] of string = ('bild1.jpg', 'bild2'.jpg', 'bild3.jpg', 'bild4.jpg');
Die Bilder liegen alle im Projektordner. Jetzt kannst du über eine Schleife die Bilder in Images (Bitmaps wären besser) laden.
Delphi-Quellcode:
for i := 0 to 3 do
TImage(FindComponent('Image'+IntToStr(i))).LoadFromFile(FileNames[i]);