Перетаскивать обьект сохраняя Drag&Drop

[HellMercenariess]

Нужно перетащить обьект (например TPanel) и чтобы при этом сохрянялся механизм Drag&Drop, как на картинке:

[kropotkina-alice]

Практически для любого компонента на форме:

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Button2.perform(WM_SysCommand,SC_DragMove,0);
end;