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;                    

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:

CurrentFigur: TPoint;                                       // am schönsten wäre ein eigener Typ (z.B: TFigur), der Koordinaten, Farbe und so was enthält (schau dir dazu "record" an)
FigurClicked: Boolean;

Procedure Image1.OnClick(Sender: TObject)
var
  Maus: TPoint;
begin
  Maus := Image1.ScreenToClient(Mouse.CursorPos);
//  CurrentFigur := getFigur(Maus);                           // welche Figur ist angeklickt - bräuchtest du nur, wenn du mit mehr als mit TPoint als Figur arbeitest - so reicht auch:
  CurrentFigur := Maus;
  if FigurClicked
    begin
    Act(Maus, CurrentFigur);                                // führt den Zug durch
    FigurClicked := False;
    end;
  else if IsAFigur(CurrentFigur)                            // wenn auf eine Figur geklickt wird
    begin
    SetPositionPossibilities(CurrentFigur);                 // zeigt  dem Benutzer an, wo man hinspringen kann
    FigurCicked := True;
    end;
  else
    ShowMessage("Fehler !!");

  Image1.invalidate;                                        // zeichnet alles neu
end;