Erro ao desconectar BD Firebird

Oi
Estou utilizando o Delphi 7 com MDO e quando é executado o comando de sair (Rotina abaixo), acontece o seguinte erro [color=red:cffbafb9f8]´Access violation at address 0051DB6C in module vendas.exe read of address 01818148´[/color:cffbafb9f8].

procedure Tfrm_principal.btn_sairClick(Sender: TObject);
begin
dados.Database.Connected := False;
Close;
end;

Alguem poderia me dar uma dica do que pode estar acontecendo???
Agradeço
Eloy