Fórum Descobrir se form estar aberto #496793

Olá sou novo em Delphi estou criando um formgrupo que utiliza varias tabelas o problema é que este formgrupo pode vir a chamar outro form (formsecao) que ao ser finalizado fecha algumas tabelas gerando erro tentei resolver desta maneira mas não deu certo onde posso está errando...

Chama formgrupo:

procedure TfrmPrincipal.Grupo1Click(Sender: TObject);
var grupo:tfrmgrupo;
begin
grupo:=tfrmgrupo.Create(self);
grupo.showModal;
end;

Chama formsecao

procedure TfrmPrincipal.S1Click(Sender: TObject);
var secao:tfrmsecao;
begin
secao:=tfrmsecao.Create(self);
secao.showModal;
end;


Evento onclose do formsecao

procedure TfrmSecao.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if tfrmgrupo = nil then
begin
dm.ibSecao.close;
dm.IBControle.Close;
showmessage('Fechou'); //Somente para saber se esta fechando..
end;
end;

Quando chamo o formsecao pelo formgrupo ao fechar o formsecao ele não fecha as tabelas e esta certo não é para fechar mesmo o problema é quando chamo o formsecao direto sem o formgrupo (formgrupo fica fechado) ao fechar o formsecao ele não fecha a tabelas e deveria já que o formgrupo esta fechado...
Alguém pode me ajudar a resolver este problema...