Растягивание картинки мышью

// H-файл
namespace Resizable_Image
{
    class TPanel : public /*Vcl::*/Extctrls::TPanel
    {
    public:
        __fastcall TPanel(TComponent* Owner) : /*Vcl::*/Extctrls::TPanel(Owner)
        {
        }
 
    protected:
        MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Message)
        {
            const int BorderSize = 8;
 
            Extctrls::TPanel::Dispatch(&Message);
            TPoint pt = ScreenToClient(Point(Message.XPos, Message.YPos));
            if ((BoundsRect.Height() - pt.Y) <
                BorderSize && (BoundsRect.Width() - pt.X) < BorderSize)
                Message.Result = HTBOTTOMRIGHT;
            else
                Message.Result = HTNOWHERE;
        }
        BEGIN_MESSAGE_MAP
            MESSAGE_HANDLER(WM_NCHITTEST, TWMNCHitTest, WMNCHitTest)
        END_MESSAGE_MAP(/*Vcl::*/Extctrls::TPanel);
    };
 
};
#define TPanel Resizable_Image::TPanel
 
// тут - класс формы, без изменений.

//---------------------------------------------------------------------------
      int  mx, my ;
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
    Form1->DoubleBuffered = true;       
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
     mx = X;  my = Y;   
} 
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
   if(Shift.Contains(ssLeft))
    {  Panel1->Left += X-mx;  Panel1->Top += Y-my;  }        
}
//---------------------------------------------------------------------------