Приведение типов

class Hamal : public TComponent{
    public:
    __fastcall Hamal(TComponent* Owner) :  TComponent(Owner){
    }
        __fastcall Hamal(TForm* form) : TComponent(form){
               box = new TPaintBox(form);
        box->SetParentComponent(form);
               box->Left = 0;
        box->Top = 0;
        box->Width = 100;
        box->Height = 100;
        red = 0;green=0;blue=0;
        red2=255;green2=255;blue2=255;
        color = (TColor) RGB(red,green,blue); //Тень
        color2 = (TColor) RGB(red2,green2,blue2); // Белый прямоугольник
        rec = Rect(10,10,box->Width, box->Height);
        rec2 = Rect(0,0,box->Width-10,box->Height-10);
        box->Tag = 1;
        }
    void create(){
        
   }
    TPaintBox* box;
    TColor color, color2; //Для первого и второго прямоугольника
    int red, red2, green,green2, blue, blue2;
    TRect rec2;// = Rect(10,10, width, height);
    TRect rec; // = Rect(0,0,width-10,height-10);
    int id;
    void draw(TCanvas* Canvas){
        box->Canvas->Brush->Color = color;
        box->Canvas->Rectangle(rec);
        box->Canvas->Brush->Color = color2;
        box->Canvas->Rectangle(rec2);
    }
};

Hamal* ham = new Hamal(Form1);

hamal->box->OnMouseDown = &mouseDown;
void __fastcall Form1::mouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y){
    Hamal* ham =  dynamic_cast<Hamal*>(Sender); //Пытаюсь получить доступ к компоненту, вызвавшему событие
}

TPaintBox* ham = dynamic_cast<TPaintBox>(Sender);

TPaintBox* ham = dynamic_cast<TPaintBox*>(Sender);

        box->Tag = (int)this; // в конструкторе

TPaintBox* pb = dynamic_cast<TPaintBox*>(Sender);
Hamal* ham = reinterpret_cast<Hamal*>(pb->Tag);