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

var PictureFiles:TStrings;

procedure TForm1.LoadPictures;
var i:integer;
begin
for i:= 0 to 3 do begin
  Image[i].Picture.LoadFormFile(PictureFiles[i]);
  Button[i].Caption:=ExtractFileName(PictureFiles[i]);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:

{ BuildComponentArray baut ein Array[StartIndex..EndIndex] für Komponenten, die
  der Namensform Button1, Button2, ..., ButtonN folgen, auf.

  Owner      ist der Besitzer der Komponenten
  Prefix     gibt an, welchen Namen die Komponenten (ohne die laufende Nummer)
             haben
  A          gibt das zu erzeugende dyamische Array an. Das erste Element
  StartIndex gibt an, ab welchem Index zu suchen begonnen wird
  EndIndex   gibt an, bis zu welchem Index gesucht wird. Ist EndIndex = -1,
             werden alle Komponenten, die eine durchgehende Nummerierung von
             StartIndex ab haben, in das Array aufgenommen.

  Für A können alle dynamischen Arrays benutzt werden, deren Elemente vom Typ
  TComponente oder abgeleiteten Klassen sind. }

procedure BuildComponentArray(Owner: TComponent; const Prefix: string;
  var A {: array of TComponent derived classes};
  StartIndex: Integer = 1; EndIndex: Integer = -1);
const
  Delta = 10;
type
  PComponentDynArray = ^TComponentDynArray;
  TComponentDynArray = array of TComponent;
var
  Index, Len: Integer;
  Component: TComponent;
  CompArray: PComponentDynArray;
begin
  if (EndIndex <> -1) and (StartIndex > EndIndex) then
    raise Exception.Create('Invalid StartIndex or EndIndex values.');

  CompArray := PComponentDynArray(@A);
  SetLength(CompArray^, Delta * 2);
  Len := 0;

  Index := StartIndex;
  repeat
    Component := Owner.FindComponent(Prefix + IntToStr(Index));
    if Component <> nil then
    begin
      Inc(Len);
      if Len >= Length(CompArray^) then
        SetLength(CompArray^, Length(CompArray^) + Delta);
      CompArray^[Len] := Component;
    end
    else
      if (EndIndex = -1) or (Index >= EndIndex) then
        Break;

    Inc(Index);
  until False;
  if Len > 0 then Inc(Len);
  SetLength(CompArray^, Len);
end;

//------
private
  FImages: array of TImage;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BuildImageArray(Self, 'Image', FImages);
  FImages[1].Picture.LoadFromFile('C:\Test\Test.bmp');
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var PictureFiles:TStrings; 

procedure TForm1.LoadPictures; 
var i:integer;
begin
for i:= 0 to 3 do begin
  with TImage(FindComponent('Image'+IntToStr(i+1))) do
    Picture.LoadFromFile(PictureFiles[i]);
  with TButton(FindComponent('Button'+IntToStr(i+1))) do
    Caption:=ExtractFileName(PictureFiles[i]);
  end;
end;