void __fastcall TForm1::AulaMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if (arrastrando)
MonAlumnoMouseMove(Sender, Shift, X, Y);
}
void __fastcall TForm1::MonAlumnoMouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
// aqui iria el código común a los dos eventos
}