Panel mit der maus bewegen(c++)

[PomBär]

void __fastcall TForm1:anel4MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if (Shift.Contains(ssLeft))
{Panel4->Left = Panel4->Left + X - px;
Panel4->Top = Panel4->Top + Y - py;};
}