Problema com função para mudar a cor do TEdits e TBBEdits

class procedure TEventos.CorOnEnter(Sender: TObject);
begin
  if Sender.ClassType = TEdit then
    (Sender as TEdit).Color := clYellow;
  if Sender.ClassType = TDBEdit then
    (Sender as TDBEdit).Color := clYellow;
end;

class procedure TEventos.CorOnExit(Sender: TObject);
begin
  if Sender.ClassType = TEdit then
    (Sender as TEdit).Color := clWindow;
  if Sender.ClassType = TDBEdit then
    (Sender as TDBEdit).Color := clwindow;
end;

var 
  I: Integer; 
begin 
  for I := 0 to ComponentCount - 1 do 
  if Components[I].ClassType = TEdit then 
  begin 
    (Components[I] as TEdit).OnEnter := TEventos.CorOnEnter; 
    (Components[I] as TEdit).OnExit  := TEventos.CorOnExit; 
  end;