[Casper-Hacker]

Код:

Const SC_DragMove=$F012;
begin
ReleaseCapture;
perform (WM_SysCommand,SC_DragMove,0);
end;

Добавить в процедуру OnMouseDown у формы, если еще кому интересно.