下記のｺｰﾄﾞでTPanelの移動はできたのですが、これをTShapeでやると移動してくれません。
void __fastcall TForm1::Panel1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
　　ReleaseCapture();
　　((TPanel *)Sender)->Perform( WM_SYSCOMMAND, 0xF012, 0 );
}
TShapeをﾏｳｽでD&Dするにはどうしたらいいですか？