1:
2:
3:
4:
5:
6:
7:
8:

Punkt auf 0,0 setzen (oben links)
while not CheckDomino do
  drehe stein 
  wenn 4 mal gedreht wurde, dan...
    verschiebe Position um ein Feld nach rechts
    wenn Position auserhalb des spielfeldes, dann...
      setze X-Position auf 0
      setze Y-Position in die nächste Zeile					

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:

var
  i, tmp: Integer;
begin
(*
Punkt auf 0,0 setzen (oben links)
while not CheckDomino do
  drehe stein
  wenn 4 mal gedreht wurde, dan...
    verschiebe Position um ein Feld nach rechts
    wenn Position auserhalb des spielfeldes, dann...
      setze X-Position auf 0
      setze Y-Position in die nächste Zeile
*)

 Domino.X := 0;
 Domino.Y := 0;
 while not CheckDomino(Domino) do
 begin
 //drehe stein
  for i := 0 to 3 do
  begin
    if Domino.Dir = diVert then begin
      tmp       := Domino.P1;
      Domino.P1 := Domino.P2;
      Domino.P2 := tmp;
      Domino.Dir := diHorz;
    end else Domino.Dir := diVert;
  end;

  //wenn 4 mal gedreht wurde, dan...
  //verschiebe Position um ein Feld nach rechts
  Inc(Domino.X);

  //wenn Position auserhalb des spielfeldes, dann...
  if Domino.X > Board.Width then
  begin
   Domino.X := 0;  //setze X-Position auf 0
   Inc(Domino.Y);  //setze Y-Position in die nächste Zeile
  end;
 end;

 //Und zeichne das Ganze!
 Board.Canvas.Draw(Domino.X * iStoneWidth, Domino.Y * iStoneWidth, imgStein.Picture.Graphic);
end;
 iStoneWidth, imgStein.Picture.Graphic);
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:
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:

//So: -----------------------------------------------------------------
 Domino.X := 0;
 Domino.Y := 0;

 repeat
  for i := 0 to 3 do
  begin
    if Domino.Dir = diVert then begin
      tmp       := Domino.P1;
      Domino.P1 := Domino.P2;
      Domino.P2 := tmp;
      Domino.Dir := diHorz;
    end else Domino.Dir := diVert;
  end;

  //wenn 4 mal gedreht wurde, dan...
  //verschiebe Position um ein Feld nach rechts
  Inc(Domino.X);

  //wenn Position auserhalb des spielfeldes, dann...
  if Domino.X > Board.Width then
  begin
   Domino.X := 0;  //setze X-Position auf 0
   Inc(Domino.Y);  //setze Y-Position in die nächste Zeile
  end;

 until (CheckDomino(Domino)) or (Domino.Y > Board.Height);



//Oder so: -----------------------------------------------------------------
 Domino.X := 0;
 Domino.Y := 0;

 while not CheckDomino(Domino) do
 begin
 //drehe stein
  for i := 0 to 3 do
  begin
    if Domino.Dir = diVert then begin
      tmp       := Domino.P1;
      Domino.P1 := Domino.P2;
      Domino.P2 := tmp;
      Domino.Dir := diHorz;
    end else Domino.Dir := diVert;
  end;

  //wenn 4 mal gedreht wurde, dan...
  //verschiebe Position um ein Feld nach rechts
  Inc(Domino.X);

  //wenn Position auserhalb des spielfeldes, dann...
  if Domino.X > Board.Width then
  begin
   Domino.X := 0;  //setze X-Position auf 0
   Inc(Domino.Y);  //setze Y-Position in die nächste Zeile
  end;
  if Domino.Y > Board.Height then break;
 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:
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:

var
  i, n, t, tmp: Integer;
begin
(*
Punkt auf 0,0 setzen (oben links)
while not CheckDomino do
  drehe stein
  wenn 4 mal gedreht wurde, dan...
    verschiebe Position um ein Feld nach rechts
    wenn Position auserhalb des spielfeldes, dann...
      setze X-Position auf 0
      setze Y-Position in die nächste Zeile
*)

 Domino.X := 0;
 Domino.Y := 0;
 n := 0;
 while not CheckDomino(Domino) do
 begin
 //drehe stein
//  for i := 0 to 3 do
  begin
   Drehen90Grad(imgStein.Picture.Bitmap);
//   Inc(t);
    if Domino.Dir = diVert then begin
      tmp       := Domino.P1;
      Domino.P1 := Domino.P2;
      Domino.P2 := tmp;
      Domino.Dir := diHorz;
    end else Domino.Dir := diVert;
  end;

  Inc(n);

  if n = 3 then
  begin
  //wenn 4 mal gedreht wurde, dan...
  //verschiebe Position um ein Feld nach rechts
  Inc(Domino.X);
  n := 0;
//  t := 0;
  end;

  //wenn Position auserhalb des spielfeldes, dann...
  if Domino.X > Board.Width then
  begin
   Domino.X := 0;  //setze X-Position auf 0
   Inc(Domino.Y);  //setze Y-Position in die nächste Zeile
  end;
  if Domino.Y > Board.Height then break;
 end;

 //Und zeichne das Ganze!
// for i := 0 to t do Drehen90Grad(imgStein.Picture.Bitmap);
 Board.Canvas.Draw(Domino.X * iStoneWidth, Domino.Y * iStoneWidth, imgStein.Picture.Graphic);
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:
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:

 while not CheckDomino(Domino) do
 begin
 //drehe stein
  if Domino.Dir = diVert then begin
     tmp       := Domino.P1;
     Domino.P1 := Domino.P2;
     Domino.P2 := tmp;
     Domino.Dir := diHorz;
   end else
   begin
    Domino.Dir := diVert;
    Inc(h);  //Zähler für horizontal
   end;

  {Zähler für Drehen erhöhen}
  Inc(n);

  if n = 3 then
  begin
   //wenn 4 mal gedreht wurde, dan...
   //verschiebe Position um ein Feld nach rechts
   Inc(Domino.X);
   n := 0;
  end;

  //wenn Position auserhalb des spielfeldes, dann...
  if Domino.X  >= Board.Width then
  begin
   Domino.X := 0;  //setze X-Position auf 0
   Inc(Domino.Y);  //setze Y-Position in die nächste Zeile
  end;
  if Domino.Y >= Board.Height then break;
 end;


 //Und zeichne das Ganze!
 {Den Stein 1x drehen, wenn er horizontal abgelegt werden soll}
 if Domino.Dir = diHorz then Drehen90Grad(imgStein.Picture.Bitmap);
 {Den Stein noch 3x drehen, wenn der Zähler h eine ungerade Zahl ist, dadurch}
 {wird er so gedreht, dass die Punktezahl auf der richtigen Seite ist.}
 if Odd(h) then
 begin
  Drehen90Grad(imgStein.Picture.Bitmap);
  Drehen90Grad(imgStein.Picture.Bitmap);
 end;

 {Den Stein zeichen}
 Board.Canvas.Draw(Domino.X * iStoneWidth, Domino.Y * iStoneWidth, imgStein.Picture.Graphic);

 {Den Stein (imgStein) ggf. wieder vertikal stellen}
 if Domino.Dir = diHorz then Drehen90Grad(imgStein.Picture.Bitmap);					

1:
2:

  SetLength(DominoList, Length(DominoList) + 1); //Array um 1 Element erweitern
  DominoList[High(DominoList)] := d; //Stein in Letztes Element eintragen					

1:
2:
3:

 i := -1;
 while i = -1 do
  i := Random(High(DominoPossiblePos));  //alles, was nicht -1 ist, ist eine Position					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.CheckDominos(d: TDomino);
var
  x, y: Integer;
begin
 for x := 0 to Board.Width do
  for y := 0 to Board.Height do
   if CheckDomino(d) then
    memo1.Lines.Add('A');  //natürlich nur zum Testen!
end;