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

procedure TForm1.SetWorldMap;
const Max=40; Breite=100; Hoehe=50;
var i,j: Integer; Ebene: TBitMap;
begin
  Spielfeld.SetBounds (0, 0, Breite*Max, Hoehe*Max);
  Tile := TBitMap.Create;
  Tile.Width  := Breite;
  Tile.Height := Hoehe;
  Tile.Transparent := true;
  Tile.LoadFromResourceName(HInstance, 'Tile01');
  for i := 0 to Max do
  for j := 0 to Max do
  begin
    Spielfeld.Canvas.Draw (i*Breite, j*Hoehe, Ebene);
    Spielfeld.Canvas.Draw
      (i*Breite-Breite div 2, j*Hoehe-Hoehe div 2, Tile);
  end;
end;                    

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

procedure DrawMyObject(x, y: integer); // eigene procedure
begin
DXDraw1.Surface.Fill(0);
DXImageList1.Items[0].Draw(DXDraw1.Surface, x + cameraX, y + CameraY, 0);
DXDraw1.Flip
end;