Type Cast no TDBEdit

Olá para todos,

Pessoal, estou com o seguinte problema.. Estou fazendo um type cast no onCreate do formulario padrão bem simples.

[b:a3d31224a1] for i := 0 to self.ComponentCount - 1 do
begin
if(self.Components[i] is TDBEdit)then
begin
(Components[i] as TDBEdit).OnEnter:=FocalizarComponente;
(Components[i] as TDBEdit).OnExit:=DesfocalizarComponente;
end;
end;[/b:a3d31224a1]

Ele focaliza e desfocaliza o TDBEdit no OnEnter e no OnExit. até aqui tudo bem...

O problema é que em alguns Campos DBEdit eu faço um outro teste no OnExit. Então quando faço o typeCast ele sobrescreve esse outro evento..

Como devo proceder para ele não sobrescrever?

Espero ter explicado bem..

Obrigado..