[:S.p.a.m.]

Код:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
const SC_DRAGMOVE = $F012;
begin
  ReleaseCapture;
  Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;

Либо делать все ручками если так не знаеш как. Обрабатывать события onMouseDown, -Up, -Move