Schleife für verschiedennamige Komponenten

[Fussel9]

Müsste es dann so aussehen?

Delphi-Quellcode:

procedure ShowPicture (const aImages: array of TImage;
                        const aPath: String = (ExtractFilePath
                        (ParamStr(0))+'Test.jpg));
var
  i : Integer;
begin
  for i := 0 to High(aImages) do
    aImages[i].Picture.LoadFromFile := aPath;
end;