Variar nome do Form no CreateForm

[b:363afe73e2]Bom dia Pessoal,
É o seguinte tenho uma rotina para montar dinamicamente meu menu, porém não estou conseguindo variar o nome do Form.

Fiz a seguinte rotina:
procedure CriarForm(frmClass: TFormClass; out NewObj);
begin
try
TForm(NewObj) := FrmClass.create(Self);
TForm(NewObj).ShowModal;
finally
FreeAndNil(NewObj);
end;
end;

E chamo o método da seguinte forma:
CriaForm(adoMenu.FieldByName(´CD_TPROGRAMA´).AsVariant, adoMenu.FieldByName(´CD_PROGRAMA´).AsVariant);

Porém me retorna o seguinte erro:
Incompatible types ´TFormClass´ and ´Variant´.

E se eu mudar de AsVariant para AsString ele da o mesmo erro.

Como eu faço essa conversão ??

Valeu
SPLASH[/b:363afe73e2]