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

[Matze]

mach's doch so:

Delphi-Quellcode:

inc(j);

case j of
1: Image1.Picture... ;
2: Image2.Picture... ;