nova propriedade em TFrame (again)

Seguinte galera estou precisando incluir algumas propriedades novas em um frame segue abaixo o código de uma delas, o que está de errado?????? Esse código tá certo, uma vez que eu posso trabalha-las, só que elas não estão aparecendo no object inspector. Ah estou usando o d7

desde já muito obrigado.

unit ufraPadListagem;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, CheckLst, Funcoes, DB, DBTables;

type
TfraPadListagem = class(TFrame)
grbTipoUtilizacao: TGroupBox;
clbListagem: TCheckListBox;
spdLimpaAtuais: TSpeedButton;
spdChecaAtuais: TSpeedButton;
qryLista: TQuery;
lbDescCont: TStaticText;
lbQtde: TStaticText;
procedure spdChecaAtuaisClick(Sender: TObject);
procedure clbListagemClick(Sender: TObject);
private
{ Private declarations }
FfraObrigatorio: boolean;
FCkTodos: Boolean;
FfraContSel: Boolean;
procedure SetfraObrigatorio(const Value: boolean);
procedure SetfraCkTodos(const Value: Boolean);
procedure MudaCor;
procedure SetfraContSel(const Value: Boolean);
public
{ Public declarations }
function Check(GeraErro: boolean) : boolean;
procedure CarregaLista(Tabela : String; Campo : String; Banco: String = ´DBCITbus´);
published
property fraObrigatorio : boolean read FfraObrigatorio write SetfraObrigatorio;
property fraCkTodos : Boolean read FCkTodos write SetfraCkTodos stored True default True;
property fraContSel : Boolean read FfraContSel write SetfraContSel;
end;

procedure Register;

implementation

{$R *.dfm}

{ TfraPadListagem }


procedure Register;
begin
RegisterNoIcon([TfraPadPesqBanco]);
RegisterCustomModule(TfraPadPesqBanco, TBaseCustomModule);// já tentei colocar nil também mas não funiona
end;