1:

Board.Canvas.Draw(imgStein.Left, imgStein.Top, imgStein.Picture.Graphic);					

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

type TDirection = (dWaagerecht, dSenkrecht);
type TDominostein = record
  X, Y: Integer;
  Points: Integer;
  Direction: TDirection;
end;

{...}

var
  Dominos: array of TDominostein;
  //weitere Anweisungen					

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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:

type
  TDirection = (diVert, diHorz);
  TDomino = packed record
    //X-Koordinate des oberen/linken Steins
    // Y-Koodinate des oberen/linken Steins
    // |  PunktWert des oberen/linken Steins
    // |  |   PunktWert des unteren/rechten Steins
    X, Y, P1, P2: Integer;
    Dir: TDirection;
  end;
  TDominoArray = array of TDomino;

var
  DominoList: TDominoArray;

//berechnet den Abstand zwischen 2 Punkten
//@P1: Punkt 1;
//@P2: Punkt 2;
//@result: Abstand der Beiden Punkte;
function GetDist(P1, P2: TPoint): Integer;
begin
  result := Abs(P1.X-P2.X) + Abs(P1.Y-P2.Y);
end;

//Prüft ob ein Domino abgelegt werden kann oder nicht und
//legt ihn ggf in das Array
//@d: Domino der geprüft/abgelget werden soll;
//@result: TRUE wenn Stein abgelegt wurde, sonst FALSE;
function TForm1.CheckDomino(d: TDomino): Boolean;
var
//aktueller Domino der Liste
  d2: TDomino;
//Koordinaten des oberen/linken Teils des Domino
//|   Koordinaten des unteren/rechten Teils des Domino
//|   |   Koordinaten des oberen/linken Teils von d2
//|   |   |   Koordinaten des unteren/rechten Teils von d2
  P1, P2, P3, P4: TPoint;
//Schleifenariable
  i: Integer;
begin
  result := false;

  //die beiden Punkte des Domino ermitteln
  P1 := Point(d.X, d.Y);
  if d.Dir = diVert then begin
    P2 := Point(d.X + 1, d.Y);
  end else begin
    P2 := Point(d.X, d.Y + 1);
  end;

  for i := 0 to High(DominoList) do begin
    d2 := DominoList[i];
    //die beiden Punkte des Domino ermitteln
    P3 := Point(d.X, d.Y);
    if d.Dir = diVert then begin
      P4 := Point(d.X + 1, d.Y);
    end else begin
      P4 := Point(d.X, d.Y + 1);
    end;

    //Dominozahlen Prüfen
    //d oben/links MIT d2 oben/links
    if (GetDist(P1, P3) = 0) then exit; //Abstand ist 0, beide Steine liegen aufeinander
    if (GetDist(P1, P3) = 1) and (d.P1 <> d2.P1) then exit; //Abstand ist 1, aber Steine haben nicht den selben Wert
    //d oben/links MIT d2 unten/rechts
    if (GetDist(P1, P4) = 0) then exit;
    if (GetDist(P1, P4) = 1) and (d.P1 <> d2.P2) then exit;
    //d unten/rechts MIT d2 oben/links
    if (GetDist(P2, P3) = 0) then exit;
    if (GetDist(P2, P3) = 1) and (d.P1 <> d2.P1) then exit;
    //d unten/rechts MIT d2 unten/rechts
    if (GetDist(P2, P4) = 0) then exit;
    if (GetDist(P2, P4) = 1) and (d.P1 <> d2.P2) then exit;
  end;
  //Wenn hier noch nicht beendet, dann passt der Stein
  //also Stein in die Liste eintragen
  SetLength(DominoList, Length(DominoList) + 1); //Array um 1 Element erweitern
  DominoList[High(DominoList)] := d; //Stein in Letztes Element eintragen
 
  result := true
end;					

1:

  if not CheckDomino(aValue) then Caption := Caption+'NO!';					

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

procedure TForm1.imgSteinClick(Sender: TObject);
var
  aValue: TDomino;
begin
 if isClick then  //OnClick nicht nach Verschieben+Maustaste loslassen auslösen
 begin
  aValue.X := Left;
  aValue.X := Top;
  aValue.P1 := 4;
  aValue.P2 := 2;
  aValue.Dir := diVert;

  if not CheckDomino(aValue) then caption := caption+'NO!'//
  else
  with (Sender as TImage) do
  begin
   Board.Canvas.Draw(Left, Top, Picture.Graphic);
   Picture.Bitmap := nil;
  end;
 end;

 isClick := True;
end;					

1:
2:

  aValue.X := Left div 32;
  aValue.Y := Top div 32					

1:
2:

iP1 := 3;
iP2 := 6;					

1:
2:

iP1 := 6;
iP2 := 3;					

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:
26:

procedure TForm1.imgSteinClick(Sender: TObject);
var
  aValue: TDomino;
begin
 if isClick then  {OnClick nicht nach Verschieben+Maustaste loslassen auslösen}
 begin
(*  aValue.X := Left;
  aValue.X := Top;
*)
  aValue.X := (Sender as TImage).Left div 38;
  aValue.Y := (Sender as TImage).Top div 38;
  aValue.P1 := iP1;//3;
  aValue.P2 := iP2;//6;
  aValue.Dir := diVert;

  if not CheckDomino(aValue) then caption := caption+'NO!'//
  else
  with (Sender as TImage) do
  begin
   Board.Canvas.Draw(Left, Top, Picture.Graphic);
//   Picture.Bitmap := nil;
  end;
 end;

 isClick := True;
end;					

1:
2:
3:
4:
5:

var
  Form1: TForm1;
  isClick: Boolean;
  iP1, iP2: Integer;
  DominoList: TDominoArray;