крестики нолики

[spydark91]

написал крестики-нолики,но не работает,так сказать "интелект"(он выражен в подпрограмме opas)

при таком варианте как у меня сейчас,он иногда ставит 2 нолика .если opas не испольщовать,то ход всегда есть,но он "глупый"
в opas`e написаны все возможные варианты опасностей,и выберется из них последний вариант,чтобы у компа можно было выиграть

пишу это три часа уже,может взгляд со стороны поможет

ну люди,помогите пожалуйста
вот немного доделанный вариант,но вопрос тотже

[hon]

Напиши в подпрограмме интелекта, что если два поля, занятны игроком в линию, то поставить шар напререз.

Но первым нужно поставить: если компьютер может выиграть в один ход, то он ходит так. Игра впринципе хорошая, но есть недочеты:
1. Название программы, лес пробелов, счет - это заголовок? Убери лес пробелов.
2. В заголовке счет есть, а в окне?
3. Зачем такая огромная ворма?
4. Что это за таймер?

Но, главное в игре уже почти готово.

Желаю удачи.

[spydark91]

Напиши в подпрограмме интелекта, что если два поля, занятны игроком в линию, то поставить шар напререз.

дак у меня так и написано
массив идет так
kn[1] kn[2] kn[3]
kn[4] kn[5] kn[6]
kn[7] kn[8] kn[9]

и написано

if (kn[1]=true) and (kn[2]=true) and (kn[3]=false) then begin x:=3; end;

и так для каждого варианта
а он не работает