Перемещение компонентов по форме

[artemavd]

Добрый вечер! Не получается сделать перемещение компонентов в пределах формы. Вот так пробую сделать:

procedure TForm1.img_1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
const
 sc_drag_move = $f012;
begin
 ReleaseCapture;
 Perform(WM_SYSCOMMAND,sc_drag_move,0);
end;

но вместо перемещения компонента, начинает перемещаться мышкой вся форма со всем содержимым. Поправьте меня?

------------
Черт, нашел решение своего вопроса здесь (второй способ)

[Hacker19_90]

Drag & DOCK

[evg_m]

наверное надо указать для которого объекта это

ReleaseCapture;
 Perform(WM_SYSCOMMAND,sc_drag_move,0);

а то получается что для формы в целом.

(sender as TWincontrol).ReleaseCapture;
(sender as TwinControl).Perform(WM_SYSCOMMAND,sc_drag_move,0);