[Sharky]

Привет
Хочу сделать компонент для ввода ip адреса.
Компонент является потомком TEdit, в новом классе заменяю лишь одну функцию

Код:

procedure TEdit1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  CreateSubClass(Params, WC_IPADDRESS);
end;

Но когда кидаю на форму, то тут же можно писать цифры в поля прямо во время дизайна формы. Из-за этого кнопкой delete нельзя удалить компонент с формы - удаляется текст. А если его всё же удалить и создать новый проект - в самой делфи ломается шрифт на System (кажется). Сообщений об ошибках не наблюдал. Помогите найти и исправить ошибки.