MyEditNum

[titkuzmitch]

Здравствуйте, уважаемые мастера! Я пытаюсь создать компонент EditNum, который допускал бы только ввод цифр, знака " - " и десятичного разделителя. В инспекторе объектов можно выбрать виды чисел: ntReal - любое число; ntInteger - целое положительное или отрицательное число; ntCurrency - вещественное положительное число; ntWord - целое положительное число. При попытке ввода неверного символа выходит подсказка с сообщением "Недопустимый символ" и сам неверный символ, а остриё наверху указывает на позицию неверного символа. Если модуль компонента вcтавить в проект, то всё работает. Но если откомпилировать модуль и создать компонент, то он работает только на форме. Если положить его на панель, то подсказка не выходит, появляется сообщение "Invalid class typecast". Прилагаю ТХТ-файл с текстом модуля. Помогите найти ошибку в программе. У самого знаний не хватает.