void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y){ Canvas->FillRect(ClientRect); Canvas->MoveTo(0, 0); Canvas->LineTo(X, Y);}