[edufg]

el codigo del data module:

Código Delphi [-]
  private
    { Private declarations }
    function abrir(var tabla:TTable):boolean;
  public
    { Public declarations }
  end;

var
  B: TB;

implementation
uses Unit1_diligencias;
{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

procedure TB.DataModuleCreate(Sender: TObject);
begin

     Diligen.DataBaseName:= Ventana.path_aplicacion;
     Filiaciones.DataBaseName:=Diligen.DataBaseName;
     solicitarDatos.DataBaseName:=Diligen.DataBaseName;
     if (not abrir(Diligen)) or (not abrir(Filiaciones)) or (not abrir(solicitarDatos))  then Halt;


end;

function TB.abrir(var tabla:TTable):boolean;
begin
     try     // Se intenta activar la tabla.
        Diligen.active:=True;
     except  {Si no se ha podido, no se produce ningún error, sino
              que el flujo del programa salta a esta cláusula y
              se muestra un mensaje.}
        Messagedlg('No se puede abrir la base de datos: '
                                +tabla.tablename, mtError, [mbOK], 0);
     end;
    // abrir devuelve True si la tabla se ha podido abrir y False si no.
     abrir := (Diligen.active);

end;
end.