Компонент пользователя и его свойства при размещении его на форме

TWinControl::Dispatch(Message); // TImage::Dispatch(Message);

class PACKAGE KPerformanceGraph : public TImage
{
//создаём новое событие
private:
TNotifyEvent FOnResized;
 
// объявляем новые функции для отрисовки того что нам нужно Они заменяют родные
// от TImage
protected:
void __fastcall SetHeight(int AHeight);
void __fastcall SetWidth (int AWidth);
 
public:
// функция которая будет вызываться для обработки события изменения размера 
// компонента - OnResize
void __fastcall Resized(System::TObject* Sender);
}

// Конструктор нового компонента на базе TImage
__fastcall KPerformanceGraph::KPerformanceGraph(TComponent* Owner)
        : TImage(Owner)
{
// создаём обработчик события OnResize в новом компоненте KPerformanceGraph
// на базе TImage событие OnResize отсутствует в TImage, но оно объявлено 
// как protected в родителе TImage - TControl. Соответственно мы может использовать его в 
// наследниках TImage, что с успехом и организуем
FOnResized = &(Resized);
this->OnResize = FOnResized;
}
 
// обработчик события при изменении компонента будет отрисовывать компонент не только во 
// время исполнения программы, но и на этапе // создания - редактирования вами формы
void __fastcall KPerformanceGraph::Resized(System::TObject* Sender){ 
if (ComponentState.Contains(csDesigning)){
SetHeight(((TControl *)this)->Height);
SetWidth(((TControl *)this)->Width);
}
}
 
void __fastcall KPerformanceGraph::SetHeight(int AHeight){
//...код отрисовки того что вам нужно при изменении высоты
}
 
void __fastcall KPerformanceGraph::SetWidth(int AWidth){
//...код отрисовки того что вам нужно при изменении ширины
}