1:
2:

for i := 0 to 10 do
    Image[i].Picture.LoadFromFile(FileListBox1.Items[i]);					

1:
2:
3:
4:
5:
6:

SetLength(MyImageArray, 42);
MyImageArray[0] := Image0;
MyImageArray[1] := Image1;
MyImageArray[2] := Image2;
//..
MyImageArray[41] := Image41;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  CompIdx: Integer;
begin
  for CompIdx := 0 to MyPanel.ControlCount -1 do
  begin
    if MyPanel.Controls[CompIdx] is TImage then
      TImage(MyPanel.Controls[CompIdx]).Picture.LoadFromFile(...);  
  end; 
end;