Fórum nova propriedade em TFrame #224735

Olá seguinte estou precisando adicionar algumas propriedades novas em um Frame que eu quero utilizar como biblioteca nos programas aqui da empresa. Eu já criei toda a estrutura, tá tudo funcionado blz, só tem um erro ! as propriedades não estão aparendo no Object Inspector !!! Gostaria de uma ajuda ai de vc pra poder resolver isso bl. Abaixo segue um exemplo de uma delas. Desde já muito obrigado.

ps. Ontem eu tinha postado esta mesma pergunta, mas não sei pq ela simplesmente SUMIU !!!!!!! Gostaria até de uma possição dos moderadores/administradores sobre o que aconteceu.

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;
procedure spdChecaAtuaisClick(Sender: TObject);
private
{ Private declarations }
FfraObrigatorio: boolean;
FCkTodos: Boolean;
procedure SetfraObrigatorio(const Value: boolean);
procedure SetfraCkTodos(const Value: Boolean);
procedure MudaCor;
public
{ Public declarations }
function Check(GeraErro: boolean) : boolean;
published
property fraObrigatorio : boolean read FfraObrigatorio write SetfraObrigatorio;
property fraCkTodos : Boolean read FCkTodos write SetfraCkTodos stored True default True;
end;

procedure Register;

implementation

{$R *.dfm}

{ TfraPadListagem }

procedure Register;
begin
RegisterNoIcon([TfraPadPesqBanco]);
RegisterCustomModule(TfraPadPesqBanco, TBaseCustomModule); //TBaseCustomModule
end;