Also an deiner Stelle würde ich's vorerst so in der Art machen:
Delphi-Quellcode:
for i := 1 to 5 do
begin
if (FindComponent('Image' + IntToStr(i)) as TImage).Picture <> nil then
begin
// Bild vorhanden (falls man es so überprüfen kann, da bin ich mir nicht ganz sicher)
end;
end;
Folgendes müsste übrigens auch gehen:
if TImage(FindComponent('Image' + IntToStr(i))).Picture <> nil
Wenn du dann einmal mehr Wissen hast bzw. Lust, es dir anzueignen, kannst du immer noch Deddys Lösung umsetzen.
Grüße