Здравствуйте, _pk_, Вы писали:

__>Есть класс-наследник TCustomEdit.
__>В нем пишу в private procedure InternalChange(Sender: TObject);
__>и в конструкторе делаю OnChange := InternalChange;

__>и в этот InternalChange заходить программа отказывается, хотя сработать он должен.

А переопределить метод Change не судьба?

TCustomEdit::Change

Generates an OnChange event.

DYNAMIC void __fastcall Change(void);

Description

Applications do not call the Change method directly. It is triggered automatically by Windows events. Change is exposed as a protected method so that derived classes can make additional responses when the text changes beyond invoking the OnChange event handler. If Derived classes that override the Change method do not call the TCustomEdit method, the OnChange event handler will not be called.

Т.е.:

class TMyEdit : public TCustomEdit
{
 typedef TCustomEdit inherited;

private:
    DYNAMIC void __fastcall Change(void)
    {
     // делаем, что надо
     inherited::Change();
    };
};

Непопулярен хелп у народа, ох непопулярен...