Ahorita no tengo delphi a mano pero seria algo asi
Para conectar
Código Delphi
[-]
try
MiConexion.Connected := True;
except
ShowMessage('No se pudo conectar');
end;
Para el evento AfterDisconect
Código Delphi
[-]
ShowMessage('Se ha desconectado la base de datos');