anchor.diff:       function NearestLowerSpeed(speed:Cardinal):Cardinal;
   
        property OnLog: TLogEvent read FOnLog write FOnLog;
  +     property OnReady:TReadyEvent read fOnReady write fOnReady;
  +
        property logLevelFile: TTrkLogLevel read mLogLevelFile write SetLoglevelFile;
        property logLevelTable: TTrkLogLevel read mLogLevelTable write SetLoglevelTable;
   
  
positive.code: 
       //events definition
       FOnLog: TLogEvent;                                                         // log event
  
       mLogLevelFile : TTrkLogLevel;
       mLogLevelTable: TTrkLogLevel;
  
negative.code:  if (Self.unbound.Count = 0) then
    begin
     Self.aReady := true;
     if (Assigned(Self.OnReady)) then Self.OnReady(Self, Self.aReady);
    end else begin
     str := '';
     for tmp in Self.unbound do
  