Chamar formulário cadastrado em banco usando Delphi 7

[Ilano 0]

Olá pessoal,

Uso Delphi 7 e tenho formulários cadastrados em banco de dados e quero montar um menu onde cada formulário será chamado via consulta SQL de acordo com o perfil de cada usuário e que esteja ativo (1) para aquele usuário. Todos os formulários estão na seção implementation. Tentei fazer o código:

procedure TFrmMenuPrincipal.ChamaForm;

Var

vlFc : TFormClass;

vlF : TForm;

begin

ChamaForm(CONSULTA, DMDados.Login.FieldByName('Usu_ID').AsInteger, ComboFormulario.EditValue, 1);

If CONSULTA.RecordCount > 0 Then

Begin

vlF.Name:=vlNome;

vlFc:=TFormClass(vlF);

Application.CreateForm(vlFc, vlF);

vlF.ShowModal;

End

Else

If CONSULTA.RecordCount = 0 Then

Begin

ShowMessage('Você não tem permissão para acessar este formulário.');

End;

end;

Mas aparece o erro:

Access violation at address 6E6F7474. Read of address 6E6F7474.

Alguém poderia me ajudar?

Grato,

Ilano.