Допустим Вам надо перетащить форму держа курсор мыши на компоненте label1
Код:
procedure tform1.label1mousedown(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
const sc_dragmove = $f012;
begin
releasecapture;
form1.perform(wm_syscommand, sc_dragmove, 0);
end;
Удачного использования!
