SoloCodigo

Lo mas importante: Conseguite las reglas del juego.

Sobre las fichas de domino: supongo que serán un arreglo de 2 elementos o un record con dos numeros.
EJ:
Realmente, ahora desconozco cual de las dos conviene.

Supongo que el Juego de las fichas sera un vector de tipo

Para mezclar la baraja, primero la creas ordenada y luego, la desordenas con algo como lo sig
Con el codigo anterior, teoricamente estarias intercambiando el lugar de cada ficha con otra ficha.

La mesa de juego, es decir, las fichas colocadas sobre la mesa en linea, supongo que no tiene que ser guardado en un vector, es que no recuerdo bien las reglas pero la baraja si. Asi que lo que tendirias que hacer, es repartir del juego de dominos la cantidad necesaria a cada jugador y verificar cual es el ultimo numero de las fichas colocodas para sabar si la jugada es valida o algo por el estilo.

Lo mas importante, conseguite las reglas.

Espero tus noticias.

Random genera numeros aleatorios y se pueden repetir

Me falto la instruccion Randomize. Igualmente, aunque se repita el numero recuerda que estas intercambiando desde 1 hasta la maxima cantidad. O sea, por ejemplo: Intercambio el 5 con el 1 (5,x,x,x,1) y luego cuando quiero intercambiar la 6 me aparece 1, de esa manera quede 1,x,x,x,6,5  y sigue mezclado. Para aumentar la eficacia, podes ejecutar el codigo 2 veces.
Muy importatne es que no tienes que sacar todas las fichas al azar, sino que, creas un vector con todas las fichas ordenadas y las mezclas. Cuando entregaste 5 fichas por ejemplo, ejecutaras el codigo de mezcla con for i:=1 to MAX - 5, de manera que no mezclara esas fichas.
REspecto a las graficas, deberias buscar info en la ayuda de delphi  acerca de TCanvas que es la parte grafica de cualquier componente, Ya sea TForm o TImage. Usando ese propiedad, puedes pegar bitmaps (TBitMap) poner Pixels, lineas, etc.....

Esos son los metodos de TCanvas.

                        Draw
     DrawPoint
     DrawPoints
     Ellipse
     FillRect
     GetClipRegion
     LineTo
     MoveTo
     Pie
     PolyBezier
     PolyBezierTo
     Polygon
     Polyline
     Refresh
     ReleaseHandle
     ResetClipRegion
     RoundRect
     SetClipRect
     Start
     StretchDraw