Изменить цвет TEdit на 5 сек а потом вернуть как было

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    ((TEdit*)Timer1->Tag)->Color = clWindow;
    Timer1->Enabled = false;
    Timer1->Tag = 0;
}
 
// Этот обработчик назначить в Инспекторе Объектов всем Edit-ам на OnChange,
// а на форму положить таймер с Enabled = false, и обработчиком OnTimer, показанным выше
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
    int Value;
    TEdit *edit = static_cast<TEdit*>(Sender);
    if(!TryStrToInt(edit->Text, Value)) // Или любую другую проверку
    {
        edit->Color = clRed;
        Timer1->Tag = (int)edit;
        Timer1->Enabled = true;
    }
}

    char cvet[15] = {0};
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
   TEdit *edd = static_cast<TEdit*>(Sender); // общий для всех Edit
   int VV = edd->Text.ToIntDef(-1);
   if (VV<0) { edd->Color=clRed; cvet[edd->Tag] = 5; } else
   if (cvet[edd->Tag]) { cvet[edd->Tag] = 0; edd->Color=clWindow; }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    for (int t=sizeof(cvet),i=0;i<t;i++)
      if (cvet[i])
        if (--cvet[i]==0) {
          for (int g=0;g<ComponentCount;g++)
            if (Components[g]->ClassNameIs("TEdit"))
              if (((TEdit*)Components[g])->Tag==i)
                ((TEdit*)Components[g])->Color=clWindow;
        }
}