For j:= 1 to 2 do.....(Pro Zahl ein Ziel)

[Phoenix]

Wenn Du in Deinem ersten Post schreibst:

Delphi-Quellcode:

for j:= 1 to 2 do
begin
   Ziel(1).picture:=(Findcomponent('Image'+inttostr(j))as TImage).Picture;
   Ziel(2).picture:=(Findcomponent('Image'+inttostr(j))as TImage).Picture;
end;

Dann muss auch:

Delphi-Quellcode:

for j:= 1 to 2 do
   Ziel(j).picture:=(Findcomponent('Image'+inttostr(j))as TImage).Picture;

funktionieren.

Alles andere würde nicht wirklich viel Sinn machen bzw. mich arg verdutzt stehen lassen. Den Gegenbeweis musst Du erst antreten