[ixMike]

Vale, no sabía qué era eso de "Ta te ti", hasta que he probado tu código (he tenido que diseñar enteramente el form ) y he visto que es lo que también se conoce como tres en raya

Sigo sin tener claro qué es lo que pedías, para usar este juego con una matriz yo habría hecho...

Código Delphi [-]
const
 simbolo_j1 = 'O';
 simbolo_j2 = 'X';
var
  tablero: array[1..3,1...3] of char; //Tablero de 3x3 carácteres.

procedure rellenar; //tendrías que llamar a esto cada vez que pulsaras "reiniciar"
begin
tablero[1,1]:='-';
tablero[1,2]:='-';
...
//para tableros grandes mejor usar un bucle 
end;

procedure jugador1(fila, columna: byte);
begin
if tablero[fila, columna]<>'-' then tablero[fila, columna]:=simbolo_j1;
comprobar_ganador;
end;

procedure jugador2(fila, columna: byte);
begin
if tablero[fila, columna]<>'-' then tablero[fila, columna]:=simbolo_j2;
comprobar_ganador;
end;

y faltaría implementar la función comprobar_ganador para ver si después de cada turno alguien ha ganado

Claro que, cada uno tiene su estilo...

Saludos.