[delphi-br] Como saber se a Classe está ou não regi strada?

[Thiago Filiano (America Soft)]

Pessoal,

Bom dia!!

Tenho a seguinte função para chamar os forms:

function AbreForm(AForm: String; AEstilo: TBorderStyle = bsSingle;
AShow: Boolean = True): Boolean;
var
Pc: TPersistentClass;
nome: TForm;
begin
Pc := GetClass('t' + AForm);
if (Pc <> nil) then
with TFormClass(Pc)

.Create(frmPrincipal) do
try
Show;
Update;
finally
Free;
end;
end;