Изменение фона формы | MouseMove

[Sourence]

void __fastcall TForm1::Button4MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
 Form1->Color = clYellow;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
  Form1->Color = clGray;
}

Мой вариант.
Нужно: изменение цвета фона, использовав только кнопку.
По сути результат тотже. Но препод не принимает етот код(