1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TKarteAnzeige.Do_Aktualisieren;
var
  i, j, X, Y, HX, HY: Integer;
  cImage: TImage;
  cGelände: TGelände;
begin
  HX := FClientHaupt.X;
  HY := FClientHaupt.Y;
  for Y := HY - 4 to HY + 4 do
  begin
    for X := HX - 4 to HX + 4 do
    begin
      i := FGrafik.Kacheln[X, Y];
      cGelände := TGelände(DMKreta.Liste.Items[i]);
      j := ((Y - HY + 4) * 9) + (X - HX + 4);
      cImage := TImage(FClientHaupt.TKachelliste.Items[j]);
      if cImage.Tag <> i then
      begin
        cImage.Picture.Assign(cKachel.Grafik.Picture);
        cImage.Transparent := False;
        cImage.Tag := i;
      end;
    ...
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.PaintBoxPaint(Sender: TObject);
begin
  ZeichneHintergrund(TPaintBox(Sender).Canvas);
  ZeichneVordergrund(TPaintBox(Sender).Canvas);
end;

procedure TForm1.ZeichneHintergrund(ACanvas: TCanvas);
var
  x, y: Integer;
begin
  for y := 0 to Zeilen - 1 do
    for x := 0 to Spalten - 1 do
      ZeichneKachel(ACanvas, x, y);
end;

procedure TForm1.ZeichneKachel(ACanvas: TCanvas; x, y: Integer);
var
  r: TPoint;
  n: Integer;
begin
  r := ErmittleKachelPosition(x, y);
  n := ErmittleKachelImageIndex(x, y);
  ImageListKacheln.Draw(ACanvas, r.x, r.y, n);
end;					

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

procedure TForm1.ZeichneVordergrund(ACanvas: TCanvas);
var
  i: Integer;
begin
  for i := 0 to FVordergrundList.Count - 1 do
    ZeichneObjekt(ACanvas, FVordergrundList[i]);
end;

procedure TForm1.ZeichneObjekt(ACanvas: TCanvas; AObject: TObject);
var
  r: TPoint;
  n: Integer;
begin
  r := ErmittleObjektPosition(AObject);
  n := ErmittleObjektImageIndex(AObject);
  ImageListObjekte.Draw(ACanvas, r.x, r.y, n);
end;