Fechar um form no evento OnShow

Olá pessoal
Estou fazendo uma rotina para validar o perfil de acesso dos usuarios no sistema. Gravo as permisoes em uma string q fica armazenada no banco de dados.
Uso uma herança de formularios... No form pai eu coloco todos os eventos comuns para todos os formularios q eu criar...
Eu queria saber se existe uma forma de forçar o fechamento de um formulario no Evento OnShow.
Por exemplo: Um usuario clica para abir uma tela. No form Pai eu tenho uma rotina para verificar se o usuario logado tem acesso aquela tela. Eu queria q no Show do formulario, dependento da resposta da verificacao, o form fechasse depois de uma msg de Acesso Negado.
Se alguem tiver alguma dica eu agradeço.
Valeu

rocedure TFrModeloCadastro.FormShow(Sender: TObject);
begin
Paginas.ActivePage := Acesso;
TbPrincipal.Open;
TbPrincipalOrderingChanged(TbPrincipal);

edPesquisa.SetFocus;
Screen.Cursor := crDefault;

if VerificaPermissao(FrPrincipal.PerfilAcesso,cod_tabela) = ´NAO PERMITIDO´ then
begin
MessageDlg(´Acesso não permitido´, mtWarning, [mbOK], 0);
Close;
end;
end;