Изменение размеров формы без рамки (bsnone)

bool hit = false;
 
 
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    hit = true;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    hit = false;
}
//---------------------------------------------------------------------------
 
 
// все казалась бы супер форма растягивается в верх и вниз но при добавлении Картинок и прочих компонентов графики начинает все мигать (dablbuffer включен в какую сторану капать направте пожалуйста
пример aimp там плей лист шоколадно растягивается)
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
    if(hit)
    {
        TPoint p;
        GetCursorPos(&p);
        Height = p.y-Top;
    }
}

class TForm1 : public TForm
{
    __published: // IDE-managed Components
 
        // ...
 
    private : // User declarations
    public : // User declarations
        __fastcall TForm1(TComponent* Owner);
 
    protected:
    MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Message)
    {
        const int BorderSize = 5;
 
        TForm::Dispatch(&Message);
 
        if(BorderStyle == bsNone)
        {
            int Bottom = BoundsRect.Bottom - Message.YPos;
            if(Bottom < BorderSize) Message.Result = HTBOTTOM;
        }
    }
    BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_NCHITTEST, TWMNCHitTest, WMNCHitTest)
    END_MESSAGE_MAP(TForm);
};

protected:
    MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Message)
    {
        const int BorderSize = 5;
 
        TForm::Dispatch(&Message);
 
        if(BorderStyle == bsNone)
        {
            int Bottom = BoundsRect.Bottom - Message.YPos;
            if(Bottom < BorderSize) Message.Result = HTBOTTOM;
            int Right = BoundsRect.Right - Message.XPos;
            if(Right < BorderSize) Message.Result = HTRIGHT;
        }
    }
    BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_NCHITTEST, TWMNCHitTest, WMNCHitTest) END_MESSAGE_MAP(TForm);

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    long SC_DRAGMOVE = 0xF012;
    if(Button == mbLeft)
    {
        ReleaseCapture();
        SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
    }
}

protected:
    MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Message)
    {
        const int BorderSize = 5;
 
        TForm::Dispatch(&Message);
 
        if(BorderStyle == bsNone)
        {
            int Bottom = BoundsRect.Bottom - Message.YPos;
            if(Bottom < BorderSize) Message.Result = HTBOTTOM;
            int Right = BoundsRect.Right - Message.XPos;
            if(Right < BorderSize) Message.Result = HTRIGHT;
        }
    }
    BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_NCHITTEST, TWMNCHitTest, WMNCHitTest) END_MESSAGE_MAP(TForm);

// ...
        if(BorderStyle == bsNone)
        {
            int Bottom = BoundsRect.Bottom - Message.YPos;
            if(Bottom < BorderSize) Message.Result = HTBOTTOM;
            int Right = BoundsRect.Right - Message.XPos;
            if(Right < BorderSize) Message.Result = HTRIGHT;
            if(Bottom < BorderSize && Right < BorderSize) Message.Result = HTBOTTOMRIGHT; // <--- Вот эту
        }
// ...