Reestablecer conexion con db

[GustavoCruz]

Buenos días amigos foreros.

Tengo una aplicación que se conecta a una base de datos que está en otro equipo; la red es de tipo wifi. ultimamente he tenido problemas son el suministro de energía, haciendo que el programa se desconecte de la base de datos. me gustaría saber cómo puedo restablecer la conexión sin necesidad de reiniciar el programa.

Tengo un procedimiento para la conexion de la base de datos

Código Delphi [-]
function TfDatos.Conectardb(ruta: string): Boolean;
begin
  try    
    Result:= True;
    Conexion.Connected:= False;
    Transaction.Active:= False;
    Conexion.DatabaseName:= ruta;
    Conexion.Connected:= True;
    Transaction.Active := True;
  except
    on e:Exception do
      begin
        MessageDlg('Informex Archivador', e.Message, mtError, [mbOK], 0);
        Result:= False;
      end;
  end;
end;

pensé que simplemente con una llamada al procedimiento en el momento en que fallara el suministro energético era suficiente para volverme a conectar.

el error que me muestra es el siguiente:
-Unable to complete network request to host "sistemas"
-Failed to establish a connection.

De antemano mil gracias por vuestro tiempo

Gustavo Cruz