Курсовая работа на тему крестики-нолики. Помогите разобраться и найти ошибку.

[vanzer]

Задача была написать игру крестики нолики. Сделал все в граф режиме, подключил мышь с помощью модуля(модуль архиве с программой). Выкладывать код в сообщении не стал (больше 250 строк), прикрепил во вложении.
В чем собственно проблема, гдето я накосячил, а найти не могу. Делает ход человек и пока не нажмет правую кнопку мыши (это задано в цикле), комп ход не сделает. Нажимаем правую кнопку, делает ход комп ну и естественно программа завершает работу. Как эт этого избавится не знаю. Есть примерное предположение что вывод хода компа и человека надо сделать в одной процедуре, только как..... Все пояснения в коде. Если кто сможет помогите, буду благодарен.

Работа нужна доделанная, срочно, на этой неделе. Плачу 300р. за исправленную.