Sin conección a BD

[mjjj]

Hola, utilizo Delphi 2006, Firebird 2.5 y componentes FIBPlus.

Una aplicación cliente-servidor, el cliente se conecta de forma remota, es decir utilizando internet para acceder a la BD.

El codigo que utilizo es asi.

Código Delphi [-]
 try
 connect.DataModule1.db1.Open;

 if connect.DataModule1.db1.Connected then
begin
    Form := Ts.Create(self);
    form7.hide;
    form.Showmodal;
end;
 except
  showmessage('No se pudo conectar al servidor.);
 end;

Puede ocurrir que el cliente en ese momento no tenga conección a internet.

El problema es que se queda demasiado tiempo pegado en el TRY, hasta que finalmente me arroja el mensaje de problema.

El componente tiene una propiedad timeout, la modifico, pero sigue sin dar una rapida respuesta.

Como puedo mejorar esto?