Arrays und for-Schleifen

[mkinzler]

Delphi-Quellcode:

for h := 1 to 48 do 
begin
    Bilder[i] := FindComponent('I_'+IntToStr(i)) as TImage).Picture; 
end;