Масштабирования изображения при наведении на него курсора

Народ помогите!!!

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
 
class TPan: public TPanel  //наш клас, нащадок VCL компонента TPanel
     {
         public:
        virtual void __fastcall  OnMouseEnter(TMessage &msg)   //курсор заїзджає на панель
        {
        this->Color = clGreen;
        }
 
        virtual void __fastcall  OnMouseLeave(TMessage &msg)  //курсор залишає панель
        {
        this->Color = clBlue;
        }
        virtual void __fastcall LMouseClick(TObject* Sender)
        {
        this->Color = clYellow;
        }
        void __fastcall  WmLButtonDown(TWMLButtonDown &msg)  //лівий клік
        {
        LMouseClick(this);
        }
 
        _fastcall TPan::TPan(TComponent* Owner):TPanel(Owner)
        {
                this->Color = clRed;
                this->Top = 50;
                this->Left = 50;
                this->Height = 300;
                this->Width = 300;
        }
 
        private:
        #pragma warn -8027  //Своего рода игнорирование предупреждения - использовать по желанию
        BEGIN_MESSAGE_MAP  //Это таблица сообщений, она служит для отлавливания сообщений от Windows. Если честно, то мне самому не очень понятно что происходит далее, точнее смысл понятен, а обьяснить не могу...
         VCL_MESSAGE_HANDLER(CM_MOUSEENTER,TMessage,OnMouseEnter);
         VCL_MESSAGE_HANDLER(CM_MOUSELEAVE,TMessage,OnMouseLeave);
         MESSAGE_HANDLER(WM_LBUTTONDOWN,TWMLButtonDown,WmLButtonDown);
         END_MESSAGE_MAP(TPanel)
         #pragma warn -8027
 
/*
 BEGIN_MESSAGE_MAP
...
MESSAGE_HANDLER(повідомлення Windows>, <тип повідомлення>, <ім'я процедури-обробника>)
...
END_MESSAGE_MAP(<батьківський клас>)
  */
     };
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TPan  *p= new TPan(Form1);
       p->Parent=Form1;
}
//---------------------------------------------------------------------------