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:

var Durchläufe  : Integer;
    Reihe       : Array of Integer;
    Bilder      : Array of TImage;

/////////////////////////////////////////////////////

procedure Ausgabe(Reihe : Array of Integer; Durchläufe : Integer);
var TempInt : Integer;
begin

  SetLength(Bilder, Durchläufe);

  for TempInt:=1 to Durchläufe do

    begin

      with Bilder[TempInt-1].Create(Self) do

        begin

            Parent:=Self;
            Width:=50;
            Height:=50;
            Left:=20;
            Top:=50+(TempInt*50);
            Picture.LoadFromFile('\Pics\'+IntToStr(Reihe[TempInt-1])+'.jpg');

        end;

    end;

end;					

1:

with Bilder[TempInt-1].Create(Self) do					

1:
2:
3:

for TempInt := 1 to Durchläufe do begin  
  Bilder[TempInt-1] := TImage.Create(Self);
  with Bilder[TempInt-1] do begin