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

  
var bit:tbitmap;

  //bauernbild laden
  //das solltest du nicht bei jedem zeichnen neu machen
  //sondern nur einmal am anfang des programms
  bit:=tbitmap.Create();
  bit.LoadFromFile('bauer.bmp');
  //das bauer.bmp bitte durch eine relative Pfadangabe ersetzen

  //hier setzen wir die transparenz des Bildes
  //damit der hintergrund nicht mitgezeichnet wird
  bit.TransparentColor:=clFuchsia;
  bit.Transparent:=true;

  //mit draw zeichnen wir das Bauernbild auf unser Spielbrett
  //die ersten beiden Parameter bestimmen die Position des Bildes
  //der letzte gibt an, welches Bild gezeichnet wird
  image1.canvas.draw(20,20,bit);					

1:
2:
3:
4:
5:

for i:= 1 to 8 do begin
    if Figur = Bauer then begin
        ImSpielfeld.canvas.draw((50*i)+10,105,bit);
    end;
end;					

1:
2:
3:
4:

for i:= 1 to 8 do begin
        ImSpielfeld.canvas.draw(50*i+10,104,bit);
        ImSpielfeld.canvas.draw(50*i+10,354,sec);
    end;