Хочу показать еще один способ перемещения окна за его тело Обрабатываем OnMouseDown:

ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);