anchor.diff:     raise Exception.Create('Library file not found, not loading');
   
    if (Self.ready) then
  +  begin
      Self.aReady := false;
  +   if (Assigned(Self.OnReady)) then Self.OnReady(Self, Self.aReady);
  +  end;
   
    TTrakceIFace(Self).LoadLib(filename);
   
  
positive.code: 
       //events definition
       FOnLog: TLogEvent;                                                         // log event
  
       mLogLevelFile : TTrkLogLevel;
       mLogLevelTable: TTrkLogLevel;
  
negative.code:   _LOG_PATH = 'log\trakce';
  
  type
    TReadyEvent = procedure (Sender:TObject; ready:boolean) of object;
    TLogEvent = procedure(Sender:TObject; lvl:TTrkLogLevel; msg:string; var handled:boolean) of object;
    TGetSpInfoEvent = procedure(Sender: TObject; Slot:TTrkLocoInfo; var handled:boolean) of object;
    TGetFInfoEvent = procedure(Sender: TObject; Addr:Integer; func:TFunkce; var handled:boolean) of object;
  