Flyt TShape, ikke TPanel

Hej

Jeg bruger nedenstående kode til at flytte et panel, altså "dragge" det. Hvordan kan jeg lave den om, hvis jeg nu hellere vil dragge en TShape ?

procedure TForm1.APanelMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  (Sender as TControl).Perform(WM_SysCommand, SC_DragMove, 0);
end;

??

Tak for hjælpen

Mikkel