anchor.diff:  procedure TTrakce.TrkLog(Sender: TObject; lvl: TTrkLogLevel; msg: string);
   begin
     Self.Log(lvl, msg);
  -  if ((Self.opening) and (lvl = llErrors) and (Assigned(Self.OnOpenError))) then
  +  if ((Self.opening) and (lvl = llErrors) and (Assigned(Self.OnOpenError)) and (Self.apiVersion < $0101)) then
     begin
       Self.opening := false;
       Self.OnOpenError(Self, msg);
  
positive.code:     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;
  
  
negative.code:     turnoff_callback: TNotifyEvent;
  
      eOnReady: TReadyEvent;
  
      mLogLevelFile: TTrkLogLevel;
      mLogLevelTable: TTrkLogLevel;
  