Drag'n'Dock Мерцание и тормоза при перерисовки рамки окна

class TMyDragDock : public TDragDockObjectEx
{
protected:
    virtual TDragImageList* __fastcall GetDragImages(void)
    {
        // зачем Control->Tag - поймешь, когда тебе понадобится
        // в процедуре EraseDragDockImage того контрола, который перетаскивается,
        // имея только указатель на TDragDockObject, вытащить этот самый DragImageList
        return (TDragImageList*)(Control->Tag);
    }
public:
    __fastcall virtual TMyDragDock(TControl* AControl);
    inline __fastcall virtual ~TMyDragDock(void)
    {
        delete ((TDragImageList*)(Control->Tag));
    }
};
 
__fastcall TMyDragDock::TMyDragDock(TControl* AControl) : TDragDockObjectEx(AControl)
{
    TDragImageList* FDragImageList = new TDragImageList(AControl->Width, AControl->Height);
    FDragImageList->Masked = true;
 
    FDragImageList->Clear();
    std::auto_ptr<Graphics::TBitmap> bmp(new Graphics::TBitmap()); // #include <memory>
    bmp->SetSize(AControl->Width, AControl->Height);
    bmp->Canvas->Brush->Style = bsSolid;
    bmp->Canvas->Brush->Color = clBlue;
    bmp->Canvas->FillRect(bmp->Canvas->ClipRect);
 
    FDragImageList->Add(bmp.get(), 0);
    Control->Tag = (int)FDragImageList;
}

class TPanel : public Extctrls::TPanel
{
protected:
    DYNAMIC void __fastcall EraseDragDockImage(TDragDockObject* DragDockObject)
    {
        if(DragDockObject->Cancelling)
        {
            ((TDragImageList*)(DragDockObject->Control->Tag))->EndDrag();
        }
    }
    DYNAMIC void __fastcall DefaultDockImage(TDragDockObject* DragDockObject, bool Erase)
    {
        // Не рисовать рамку !!!
    }
};
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TPanel *Panel1;
    ::TPanel *Panel2; // Панель с переопределенными методами !!!
    void __fastcall Panel2StartDock(TObject *Sender, TDragDockObject *&DragObject);
 
private:    // User declarations
public: // User declarations
    __fastcall TForm1(TComponent* Owner);
};

void __fastcall TForm1::Panel2StartDock(TObject *Sender, TDragDockObject *&DragObject)
{
    DragObject = new TMyDragDock(Panel2);
}

void __fastcall TForm1::DockTabSet1TabRemoved(TObject *Sender)
{
    DockTabSet1->Visible = DockTabSet1->Tabs->Count;
}
 
void __fastcall TForm1::DockTabSet1TabAdded(TObject *Sender)
{
    DockTabSet1->Visible = True;
}

    pos.x -= this->Left;
    pos.y -= this->Top;

    TRect rect;
    GetWindowRect(this->Handle, &rect);
    pos.x -= rect.left;
    pos.y -= rect.top;