Не работает код на Delphi

[Iko]

Проблема в следующем. мне надо написать казалось бы простую программку, что бы при выборе  из ComboBox некоторого пункта, текст этого пункта переносился по определенным координатам в чертеж. Для начала я решил попробовать через ks.text  отправить по координатам хоть какой-то текст, но почему-то ks.text не выполняется. Нет ни ошибок, ни чего либо еще. Просто ничего не происходит. Сообщение break ставил, что бы проверить работает ли вообще этот участок кода. Работает. Но ks.text почему то не выполняется.

В архиве: Stamp_2 - программа, f - форма.

[Sabahs]

Смотрите примет c:\Program Files\ASCON\KOMPAS-3D V16\SDK\Pascal\DELPHIAUTO\step3\step31.pas