var
BMatch:function (str, target, targetendp: PChar;
                var rxp: pTBRegExpRec; msg: PChar): Boolean;cdecl;
BSubst:function (str, target, targetendp: PChar;
                var rxp: pTBRegExpRec; msg: PChar): Boolean;cdecl;
BTrans:function (str, target, targetendp: PChar;
                var rxp: pTBRegExpRec; msg: PChar): Boolean;cdecl;
BSplit:function (str, target, targetendp: PChar; limit: Integer;
                var rxp: pTBRegExpRec; msg: PChar): Boolean;cdecl;
BRegFree:procedure (rx: pTBRegExpRec);cdecl;
BRegExpVersion:function : PChar; cdecl;{cdecl;}
hDLL:THandle;

initialization
 hDLL := LoadLibrary('BREGEXP.DLL');
  if hDLL = 0 then
    raise Exception.Create('BREGEXP.DLL');
  @BMatch:= GetProcAddress(hDLL,'BMatch');
  @BSubst:= GetProcAddress(hDLL,'BSubst');
  @BTrans:= GetProcAddress(hDLL,'BTrans');
  @BSplit:= GetProcAddress(hDLL,'BSplit');
  @BRegFree:= GetProcAddress(hDLL,'BRegfree');
  @BRegExpVersion:= GetProcAddress(hDLL,'BRegexpVersion');
finalization
  fbrx.Free;
  FreeLibrary(hDLL);
end.