anchor.diff:      procedure httpSinkEndpoint(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;
         var respJson:TJsonObject);
   
  +    procedure ProcessReceivedMessages();
  +    procedure OnReceiveTimerTick(Sender: TObject);
  +
       procedure httpAfterBind(Sender:TObject);
       procedure httpStatus(ASender: TObject; const AStatus: TIdStatus;
         const AStatusText: string);
  
positive.code:     endpoints: TObjectList<TPTEndpoint>;
  
      httpServer: TIdHTTPServer;
      readLock:TCriticalSection;
  
      Fcompact:boolean;
  
  
negative.code: procedure TPtServer.Stop();
  begin
   Self.httpServer.Active := false;
   Self.receiveTimer.Enabled := false;
  
   writeLog('PT server zastaven', WR_PT);
  
  