anchor.diff:  
   ////////////////////////////////////////////////////////////////////////////////
   
  -constructor TMTBIFace.Create;
  +constructor TMTBIFace.Create(AOwner: TComponent);
    begin
     inherited;
    end;
  
positive.code:     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
  
      function GetModuleExists(Module:Integer):boolean;                           // vrati jestli modul existuje
      function GetModuleType(Module:Integer):string;                              // vrati typ modulu
  
negative.code:     raise EFuncNotAssigned.Create('FFuncGetModuleName not assigned');
   end;
  
  procedure TMTBIFace.SetModuleName(Module:Integer; aName:string);
   begin
    if (Assigned(FFuncSetModuleName)) then
      FFuncSetModuleName(Module, aName)
    else
      raise EFuncNotAssigned.Create('FFuncSetModuleName not assigned');
   end;
  