Fórum Não consigo liberar esta aplicação #197647

já tentei diversas respostar de dúvidas que outros tiveram e persiste o problema. Ele chega no ultimo end desta procedure e não fecha a aplicação.
procedure TFlogon.BitBtn1Click(Sender: TObject);
begin
// VALIDAÇÃO DE SENHA
IBQuery1.Close;
IBQuery1.Params[0].AsString := Edit1.Text;
IBQuery1.Params[1].AsString := Edit2.Text;
IBQuery1.Open;
if IBQuery1.RecordCount <> 0 then
begin
//HABILITA MENU
try
Application.CreateForm(TFabertura,Fabertura);
Fabertura:=TFabertura.Create(Application);
usuario_logado := IBQuery1US_CODIGO.AsInteger;
Fabertura.Arquivo1.Enabled := true;
Fabertura.Cadastros1.Enabled := true;
Fabertura.Movimento1.Enabled := true;
Fabertura.Localizar1.Enabled := true;
Fabertura.Relatrios1.Enabled := true;
Fabertura.Ajuda1.Enabled := true;
Fabertura.GerarFolhadePagamento1.Enabled := true;
Fabertura.CH1.Enabled := true;
Fabertura.CadastrarUsurio1.Enabled := true;
Fabertura.Parmetros1.Enabled := true;
IBQuery1.Close;
try
Fabertura.ShowModal;
Except
on EConvertError do
showmessage(´ Valor inválido.´);
on EAccessViolation do
showmessage(´*** Violação de memória ***´);
end;
finally
// Release;
Fabertura.Release;
Flogon.Release;
// Fabertura := nil;
// IBQuery1.Close;

end;
end
else
begin
ShowMessage(´Usuário ou senha inválidos´);
Edit1.Clear;
Edit2.Clear;
edit1.SetFocus;
end;
end;