Cierre de la Base de Datos

[Loviedo]

procedure TFmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
IBD1.Connected := false;
Application.terminate;
end;
Aunque funciona bien, se cierra la base de datos después que la aplicación.
Lo he podido comprobar porque ejecuto el programa inmediatamente después de haberlo cerrado y da error, es por lo que quiero tener garantía de que la base de datos está cerrada.
Saludos.