Im Ordner liegen 4 Bilder 1..4.jpg.
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 1 to 4 do
(FindComponent(Format('Image%d', [i])) as TImage).Picture.LoadFromFile(
ExtractFilePath(ParamStr(0)) + Format('%d.jpg', [i]));
end;
Aber das ist doch auch schon die Antwort in deinem anderen Thread.
