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

procedure TForm1.image1Click(Sender: TObject);
begin
  if activeplace <> 1 then begin
    activeplace := 1;
    image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\bilder\bauplatzact.bmp');
  end
  else begin
    activeplace := 0;
    image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\bilder\bauplatz.bmp');
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.image1Click(Sender: TObject);
var
  theImage : TImage;
begin
  theImage := TImage(Sender);
  if activeplace <> 1 then begin
    activeplace := 1;
    theImage.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\bilder\bauplatzact.bmp');
  end
  else begin
    activeplace := 0;
    theImage.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\bilder\bauplatz.bmp');
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Var arrImg: Array[1..10] Of TImage;

procedure TForm1.Create(Sender: TOBject);
begin
  arrImg[1] := Image1;
  arrImg[2] := Image2;
  arrImg[3] := Image3;
  ...
  arrImg[10] := Image10;
end;

procedure TForm1.Button1Click(Sender:TObject);
var z:Integer;
begin
  for z := 1 To 10 Do arrImg[z].Left := 100;
end;