Zdarzenie zależne od konkretnego buttona w Kółko i Krzyżyk

Cześć!

Piszę kółko i krzyżyk tak aby można było grać z komputerem. Na formie mam 9 buttonów ułożynych w takiej kolejności:

b1 b2 b3
b4 b5 b6
b7 b8 b9

Procedura kliknięcia buttona wygląda tak:

begin
  if aktywny = 'O' then
    aktywny := 'X'
  else
    aktywny := 'O';
  if (Sender is TButton) then (Sender as TButton).Caption := aktywny;
  if (Sender is TButton) then (Sender as TButton).Enabled := False;
end;

I tę procedurę podpiąłem pod wszystkie 9 buttonów. Teraz chciałbym wpisać do tablicy dwuwymiarowej (3x3) odpowiednio wartość X lub O. Np. jeśli kliknę w b3 to:

tablica[3, 1] := aktywny;

Jeśli w b8 to:

tablica[2, 3] := aktywny;

Pomożecie?

Myślenie nie boli, serio ;)
Przyjmując, że w polu tag masz numer pola (1..9), to możesz to zrobić np.tak:

tablica[(Sender as TButton).Tag mod 3, (Sender as TButton).Tag div 3] := foo;

Dziękuję bardzo :) Problem rozwiązany :)