[Delphi]Pomoc przy prostej gierce z IQ

[teika]

witam!

Ostatnio zainteresowałem sie delphi i chciał bym napisać prostą grę kółko i krzyżyk. W załączniku możecie sprawdzić co już mam. A mam niewiele bo jak na razie PC strzela , brakuje mi procedury "sztucznej inteligencji, czyli sprawdzanie przekątnej, boków i blokowanie ewentualnie kontratak PC ... Warunki IQ chciałem zrobić na zasadzie magicznego kwadratu :

* 4 * 3 * 8 *

 

* 9 * 5 * 1*

 

* 2 * 7 * 6*

Suma trzech pól obok siebie lub po przekątnej daje 15.

I tu sie zaczyna problem bo ... zadeklarowałem dwie tablice : tab: array[0..8] of integer; tab15: array[0..8] of integer;

W pierwszej po postawieniu "X" lub "O" w Caption w komponentach Label.Do pól w tablicy tab15 przypisuje odpowiednio jeśli "X" 1 a dla "O" 5, i wtedy sprawdzam warunkami czy np. tab15[0]+tab15[3]+tab15[6]=3 to wybrana bo 3 w rzędzie itd... i niewiem zabardzo jak zabrać się za tą drugą procedurkę dla której własnie stworzyłem tą tablicę ze stałymi.

 

Przepraszam za chaotyczny opis. Z góry dziękuję za rady i pomoc

 

Mam problem z dołączeniem załącznika więc podaje link KODhttp://www.speedyshare.com/files/22183230/OX.rar