Fórum Duvida com procedure que testa o form atual... ?????? #239482

Boa Tarde amigos...

Acho que talvez alguém possa me ajudar com esta duvida....

vejam.....

Tenho uma procedure que faz um incremento numa variavel de controle, mas esta variavel é individual em cada form especifico.

E tenho uma variavel de controle que guarda o nome do form atual

Então a procedure é assim....

Procedure AutoIncremento;
Begin
If NomeForm=F_CadEntidades then
F_CadEntidades.Codigo := AutoInc_Controle(Tabela);

If NomeForm=F_CadTiposEnder then
F_CadTiposEnder.Codigo := AutoInc_Controle(Tabela);

//Etc. E assim sucessivamente.. na sequencia eu tenho if´s que testam todos os forms de cadastro do projeto. São uns 30 forms....
End;

Já que tenho a variavel NomeForm(Tform) que guarda o nome do form atual(Ela é atribuida no show do form)

Quando tento nesta mesma procedure fazer o seguinte....

Ao invés de :

If NomeForm=F_CadTiposEnder then
F_CadTiposEnder.Codigo := AutoInc_Controle(Tabela);

Tento fazer:
If NomeForm=F_CadTiposEnder then
NomeForm.Codigo := AutoInc_Controle(Tabela);


Dá um erro dizendo que a variavel Codigo não existe,
Gostaria que o sistema entendesse que citando a Variavel.Codigo sendo que a Variavel contem o nome do form, é o mesmo que F_CadTiposEnder.Codigo

Se eu conseguisse resolver isso, ao inves de eu ficar fazendo if´s com o nome de todos os forms de cadastro do projeto, eu teria apenas o seguinte codigo na procedure:

Procedure AutoIncremento;
Begin
NomeForm.Codigo := AutoInc_Controle(Tabela);
End


Mas Desta forma dá erro dizendo que a variavel codigo não existe. O sistema não entende que a variavel NomeForm e F_CadTiposEnder são a mesma coisa.


Se puderem me ajudar ficarei muito grato.

Um grande abraço a todos.
Pablo - Marília