Акжан в сети - На уровень вверх(VCL) Как перевести визуальный компонент, такой, как TPanel, в состояние перемещения (взять и перенести)?

Пример:

{ В случае Panel1:TPanel - обработчик события OnMouseDown }
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;  { a magic number }
begin
  ReleaseCapture;
  panel1.Perform(WM_SysCommand, SC_DragMove, 0);
end;

Borland TI N2909 (перевод: Акжан Абдулин)