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

[S - tefano]

Hi,

anstatt

Delphi-Quellcode:

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

würde ich eher das machen:
Ziel(j).picture:=(Findcomponent('Image'+inttostr(j))as TImage).Picture; Sonst weißt du nämlich auch im zweiten Schleifendurchlauf dem ersten Ziel das Bild mit der Nummer j zu.
Jedenfalls wenn ich das richtig verstanden hab...

Bis dann,

S - tefano

[EDIT]
Hm, habs wohl doch falsch verstanden, jetz wo ich nochmal nachles. Ich find Matzes Vorschlag besser
[/EDIT]