Criando Componente

Pessoal é o seguinte: quero criar um componente TEditColor que ao receber o focu ele muda de cor altomaticamente(para isso criei uma propriedade ColorFocused) mas não está funcionando. Deve ter algo faltando no meu componente.
Dêem uma olhada no código:

unit EdColor;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TEditColor = class(TEdit)
private
FColorFocused: TColor;
FColor: TColor;
procedure SetColor (Value: TColor);
protected
public
constructor Create(AOwner: TComponent); override;
procedure OnEnter(Sender: TObject);
published
property ColorFocused: Tcolor read FColorFocused write
FColorFocused;
property Color: Tcolor read FColor write FColor;
end;

procedure Register;

implementation

************************************

constructor TEditColor.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FColor := clWhite;
FColorFocused := clInfoBk;
end;

************************************

procedure TEditColor.SetColor(Value: TColor);
begin
// if (Focused)and(Screen.ActiveControl is TEditColor) then
FColor := Value;
end;

************************************

procedure TEditColor.OnEnter(Sender: TObject);
begin
if (Focused)and(Screen.ActiveControl is TEditColor) then
SetColor(ColorFocused);
end;

************************************

procedure Register;
begin
RegisterComponents(´MComps´, [TEditColor]);
end;

end.

obs: O componente é compilado e instalado numa boa, mas quando ele recebe o focu ele não muda a cor. Desejo criar este componente apenas para estudar o assunto e para utiliza-lo.

Quem puder me ajudar, ficarei grato!