Schleife für verschiedennamige Komponenten

[himitsu]

Das sicherste und Schnellste wäre dein Weg zwar.

Der einfche Weg wurde gleich zu Anfang genannt

TImage(FindComponent('Image' + IntoStr(i))).LoadFromFile und wie die Fehlermeldung dir sagen sollte, sind da nur Kostanten erlaubt und ExtractFilePath, sowie ParamStr sind ja wohl Funktionen

Delphi-Quellcode:

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