void __fastcall TForm1::Edit1Enter(TObject *Sender){ Edit1->Color = clYellow;}//---------------------------------------------------------------------------void __fastcall TForm1::Edit1Exit(TObject *Sender){ Edit1->Color = clWindow;}