Fórum uso correto de funções genéricas #288898

Estou com o seguinte problema:

tenho uma unit chamada uFuncoes a qual coloco todas as funcoes que uso frequentemente (valores extenso, controle de datas, checagens, etc...)

só que no momento quero criar forms, passando os tipos e nomes por parametro, ex:

[b]function CriarForm(TipoForm:TComponentClass ; NomeForm:TForm) :Boolean ;[/b]

e fechar form da mesma maneira...
[b]
function FecharForm(NomeForm:TForm);[/b]

entao para isso implementei da seguinte forma :

[b]//**********************CRIAR FORMS[/b]

function TfrmMenu.CriarFormulario(TFormulario:TComponentclass;NomeForm:TForm):Boolean;
begin
try

NomeForm :=Nomeform.Create(self);
Nomeform.showmodal;

finally
NomeForm.Release;
NomeForm :=Nil;
end;
end;

[b]//********************FECHAR FORMS[/b]

function TfrmFUNCOES.FecharFormulario(Formulario:tform):Boolean;
begin
if Formulario <> Nil then
begin
formulaRIO.Destroy;
formulario :=Nil;
end;
end;

O problema é o seguinte :
CRIA OS FORMS CORRETAMENTE;
AO USAR PROCEDURES E FUNCOES INTERNAS (JÁ NO FORM CRIADO), ESTE ME RETORNA FORM = NIL !!!!, assim não consigo trabalhar com [b]funcoes internas [/b]do form criado pela funcao acima,

para ser mais claro,

eu crio normalmente pela funcao acima,
quando uso funcoes internas dá erro,
ao fechar o form, já é NIL!!! , portanto fica em memória... e não consigo descarrega-lo (a nao ser manualmente)


Alguem pode me ajudar?