1:
2:
3:
4:
5:
6:
7:
8:

var
   image : array[1..3] of ?????   !!!!Was für ein Datentyp kommt hinein??
   a : integer;
...
begin
  for a:=1 to 3 do
  image[a].visible:=true
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  schus :      array[1..7] of boolean;
  sx1,sy1:    array[1..7] of integer;
  d1,dsmm1: array[1..7] of real;

if schus[a] then begin 
  d1[a] :=round(sqrt((abs(x2-sx1[a] ))+(abs(y2-sy1[a] ))));
    if sm1 then begin   
     dsmm1[a] :=round(sqrt((abs(sx-sx1[a] ))+(abs(sy-sy1[a] ))));
      end;end else begin d1[a] :=220;dsmm1[a] :=220; end;					

1:
2:
3:
4:
5:
6:
7:

var 
image : array[1..3] of [b]TImage[/b] 
a : integer; 
... 
begin 
for a:=1 to 3 do 
image[a].visible:=true					

1:
2:

 for i:=0 to 5 do
 TImage(FindComponent('Image'+IntToStr(i))).visible:=false;