создать свойство компонента

[дядя]

Уважаемые Взрослые Программисты, подскажите как создать свойство у компонента TButton, позволяющее делать надпись заглавными буквами на этом компоненте, без участия клавиши Shift.

[BOBAH13]

Делаем наследник от класса TButton, потом ловим сообщение CM_TEXTCHANGED ( вроде так в модуле Controls ) в нем делаем UpperCase и inherited; Все

[дядя]

Многоуважаемый ВОВАН13, Вы не могли бы уточнить: как поймать сообщение CM_TEXTCHANGED. Чего-то у меня не получается. Проверьте, правильно ли сделал:
var Ch:PChar;
begin
....
SetTextBuf(Ch);
Caption:=UpperCase(Ch);
end;
Button1.Caption сразу весь изменяется, а хотелось бы по мере ввода символов. Жду ответа как соловей лета. Это была шутка.