Borland C++ Builder FAQ
составлен по материалам форума
на sources.ru
if(Button == mbLeft)
{
long SC_DRAGMOVE = 0xF012;
ReleaseCapture();
SendMessage(Form1->Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
}