anchor.diff:      function NearestLowerSpeed(Speed: Cardinal): Cardinal;
   
       property OnReady: TReadyEvent read eOnReady write eOnReady;
  -    property OnOpenError: TErrorEvent read eOnOpenError write eOnOpenError;
  -
  +    
       property logLevelFile: TTrkLogLevel read mLogLevelFile write SetLoglevelFile;
       property logLevelTable: TTrkLogLevel read mLogLevelTable write SetLoglevelTable;
   
  
positive.code:     turnoff_callback: TNotifyEvent;
  
      eOnReady: TReadyEvent;
      eOnOpenError: TErrorEvent;
  
      mLogLevelFile: TTrkLogLevel;
      mLogLevelTable: TTrkLogLevel;
  
negative.code: procedure TTrakce.TrkLog(Sender: TObject; lvl: TTrkLogLevel; msg: string);
  begin
    Self.Log(lvl, msg);
    if ((Self.opening) and (lvl = llErrors) and (Assigned(Self.OnOpenError)) and (Self.apiVersion < $0101)) then
    begin
      Self.opening := false;
      Self.OnOpenError(Self, msg);
  