[nemesio]

<P>Prueba con este código, a mi me funciona a las mil maravillas. Lo incluyes en tu Datamodule</P>
<P>

</P>
<P>&nbsp;</P>
<P>....</P>
<P>resourcestring<BR>&nbsp; errConnectBD = 'Error conectando con la base de datos.'#13#13'Mesaje de error: '#13'%s';<BR>var<BR>&nbsp; DataBases: TDataBases;</P>
<P>implementation</P>
<P>{$R *.dfm}</P>
<P><BR>function TDataBases.Connect: boolean;<BR>begin<BR>&nbsp; Result := true;</P>
<P>&nbsp; // Si estamos conectados, nos desconectamos<BR>&nbsp; if IBDatabase1.Connected then<BR>&nbsp;&nbsp;&nbsp; IBDatabase1.Connected := false;</P>
<P>&nbsp;</P>
<P>&nbsp; try<BR>&nbsp;&nbsp;&nbsp; IBDatabase1.Connected := true;<BR>&nbsp; except<BR>&nbsp;&nbsp;&nbsp; on E: Exception do<BR>&nbsp;&nbsp;&nbsp; begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ShowMessage(Format(errConnectBD, [E.Message]));</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //el E.Message contiene el Mensaje&nbsp;de Error<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Result := false;<BR>&nbsp;&nbsp;&nbsp; end;<BR>&nbsp; end;</P>
<P>end;<BR></P>
<P>

</P>
<P>&nbsp;</P>
<P>para llamar la función lo puedes hacer en el archivo .dpr de tu proyecto despues que se crea el formulario para el datamodule de la siguiente manera:</P>
<P>&nbsp;</P>
<P>

</P>
<P>if not Databases.Connect then<BR>&nbsp; begin<BR>&nbsp;&nbsp;&nbsp; FreeAndNil(Databases);<BR>&nbsp;&nbsp;&nbsp; Exit;<BR>&nbsp; end;</P>
<P>

</P>
<P>&nbsp;</P>
<P>Espero que te funcione y Suerte</P>