В событие OnMouseDown формы и компонентов, которыми мы собираемся таскать, помещаем код:
if(Button == mbLeft)
{
long SC_DRAGMOVE = 0xF012;
ReleaseCapture();
SendMessage(Form1->Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
}