Таскаем(перемещаем) форму за любое место. Данный код позволит передвигать форму мышью за любое её место. Не только за строку заголовка.

Создадим обработчик события FormMouseMove для формы. И перемещать её можно будет за любое место.

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if (!Shift.Contains(ssLeft)) return;
ReleaseCapture();
Perform (WM_SYSCOMMAND,0xF012,0);
}