anchor.diff:      function GetDriverVersion():string;                                         // vrati verzi MTBdrv drivery v knihovne
   
       function GetModuleName(Module:Integer):string;                              // vrati jmeno modulu
  -    procedure SetModuleName(Module:Integer; Name:string);                       // nastavi jmeno modulu
  +    procedure SetModuleName(Module:Integer; aName:string);                      // nastavi jmeno modulu
   
       function GetModuleExists(Module:Integer):boolean;                           // vrati jestli modul existuje
       function GetModuleType(Module:Integer):string;                              // vrati typ modulu
  
positive.code:   if (FLib = 0) then
      raise Exception.Create('Library not loaded');
  
    FFuncOnUnload           := GetProcAddress(FLib, 'onunload');
    FFuncSetOutput          := GetProcAddress(FLib, 'setoutput');
    FFuncSetInput           := GetProcAddress(FLib, 'setinput');
    FFuncGetInput           := GetProcAddress(FLib, 'getinput');
    FFuncGetOutput          := GetProcAddress(FLib, 'getoutput');
    FFuncShowConfigDialog   := GetProcAddress(FLib, 'showconfigdialog');
    FFuncHideConfigDialog   := GetProcAddress(FLib, 'hideconfigdialog');
    FFuncShowAboutDialog    := GetProcAddress(FLib, 'showaboutdialog');
    FFuncStart              := GetProcAddress(FLib, 'start');
    FFuncStop               := GetProcAddress(FLib, 'stop');
    FFuncGetLibVersion      := GetProcAddress(FLib, 'getlibversion');
    FFuncGetDeviceVersion   := GetProcAddress(FLib, 'getdeviceversion');
    FFuncGetDriverVersion   := GetProcAddress(FLib, 'getdriverversion');
    FFuncGetModuleFirmware  := GetProcAddress(FLib, 'getmodulefirmware');
    FFuncModuleExists       := GetProcAddress(FLib, 'getmoduleexists');
    FFuncGetModuleType      := GetProcAddress(FLib, 'getmoduletype');
    FFuncGetModuleName      := GetProcAddress(FLib, 'getmodulename');
    FFuncSetModuleName      := GetProcAddress(FLib, 'setmodulename');
    FFuncSetBusSpeed        := GetProcAddress(FLib, 'setmtbspeed');
    FFuncSetScanInterval    := GetProcAddress(FLib, 'settimerinterval');
    FFuncOpen               := GetProcAddress(FLib, 'open');
    FFuncClose              := GetProcAddress(FLib, 'close');
  
    // assign events:
    setterNotify := GetProcAddress(FLib, 'setbeforeopen');
    if (Assigned(setterNotify)) then setterNotify(OnLibBeforeOpen, self);
    @setterNotify := GetProcAddress(FLib, 'setafteropen');
    if (Assigned(setterNotify)) then setterNotify(OnLibAfterOpen, self);
    @setterNotify := GetProcAddress(FLib, 'setbeforeclose');
    if (Assigned(setterNotify)) then setterNotify(OnLibBeforeClose, self);
    @setterNotify := GetProcAddress(FLib, 'setafterclose');
    if (Assigned(setterNotify)) then setterNotify(OnLibAfterClose, self);
  
    @setterNotify := GetProcAddress(FLib, 'setbeforestart');
    if (Assigned(setterNotify)) then setterNotify(OnLibBeforeStart, self);
    @setterNotify := GetProcAddress(FLib, 'setafterstart');
    if (Assigned(setterNotify)) then setterNotify(OnLibAfterStart, self);
    @setterNotify := GetProcAddress(FLib, 'setbeforestop');
    if (Assigned(setterNotify)) then setterNotify(OnLibBeforeStop, self);
    @setterNotify := GetProcAddress(FLib, 'setafterstop');
    if (Assigned(setterNotify)) then setterNotify(OnLibafterStop, self);
  
    @setterErr := GetProcAddress(FLib, 'setonerror');
    if (Assigned(setterErr)) then setterErr(OnLibError, self);
  
    @setterModuleChanged := GetProcAddress(FLib, 'setoninputchange');
    if (Assigned(setterModuleChanged)) then setterModuleChanged(OnLibInputChanged, self);
    @setterModuleChanged := GetProcAddress(FLib, 'setonoutputchange');
    if (Assigned(setterModuleChanged)) then setterModuleChanged(OnLibOutputChanged, self);
   end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
negative.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  constructor TMTBIFace.Create(AOwner: TComponent);
   begin
    inherited;
   end;
  