Экспертная система Опции

[Екатерина]

Здравствуйте! Пишу программу по экспертным системам. Помогите найти ошибку в коде.
Программа должна работать следующим образом:
1)Вводим в поля нужное количество признаков и объектов, подтверждаем нажатием
Кнопки «Подтвердить»
2) Вводим любые названия объектов, вводим в поле Edit8 один из них, отмечаем чекбоксы, которые соответствуют выбранному объекты , и нажимаем «Обучение». (Таким образом объект «обучается», т.е. ему присваиваются признаки выбранные нами в поле Мемо1 из всей кучи признаков)
3) Проблема в том, что не получается правильно запрограммировать кнопку «Экспертиза».
При нажатии на неё, с учетом правильно заполненных эдитов – Edit13-Edit18 , в поле Edit21 должен появиться «обученный» объект, но появляется «объект не опознан!»
Почему у меня не выполняется это условие в 216-й строке:?
Edit21.text:= Edit8.Text

Сообщение отредактировано: Екатерина - 28.10.2012 21:54