Перемещение объекта правой кнопкой мыши

if(Button == mbLeft)
{
ReleaseCapture();
Map->Perform(WM_SYSCOMMAND, 0xF012, 0);
}

if( Shift.Contains( ssMiddle ) ) //ssRight

void __fastcall TForm1::NewMapWndProc(Messages::TMessage &Message)
{
    switch (Message.Msg)
    {
    case WM_MOVING:
        {
            // тут у нас хранится указатель на структуру RECT с размерами окна
            LPRECT pRect = (LPRECT)(Message.LParam);
            // запоминаем ширину/высоту перетягиваемой панельки
            int width = pRect->right - pRect->left;
            int height = pRect->bottom - pRect->top;
            // получаем _экранные_ координаты точки, за которую заходить нельзя
            TPoint p2 (Panel1->Width ,Panel1->Height);
            TPoint p1 (0,0);
            if (pRect->left > p1.x)
            {
                pRect->right = (pRect->left = p1.x) + width;
            }
            if (pRect->top > p1.y)
            {
                pRect->bottom = (pRect->top = p1.y) + height;
            }
            if (pRect->right < p2.x)
            {
                pRect->left = (pRect->right = p2.x) - width;
            }
            if (pRect->bottom < p2.y)
            {
                pRect->top = (pRect->bottom = p2.y) - height;
            }
            Message.Result = 1;
            break;
        }
    }
    OldMapWndProc(Message); // Вызываем стандартную оконную функцию
}