if(Button == mbLeft)
        {
        long SC_DRAGMOVE = 0xF012;
        ReleaseCapture();
        SendMessage(Form1->Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
        }