anchor.diff:        //fTT:array[1..16]of THTTPPostThread;
   
         function GetPlayersList():string;
  +      function GetPostsList():string;
         procedure AskServerFor(i:byte; aQuery,aParams:string; aReturn:PString);
       public
         constructor Create(aAddress:string; aLogin,aPass,aIP:string; aReturn:TNotifyEvent);
  
positive.code:   ResultMsg := fHTTP.Post(fPost, fParams);
    ResultMsg := StringReplace(ResultMsg,#$EF+#$BB+#$BF,'',[rfReplaceAll]); //Remove BOM
    if fReturn<>nil then fReturn^ := ReplyToString(ResultMsg) +' /'+ inttostr(random(9));
    fParams.Free;
    fHTTP.Free;
  end;
  
negative.code: 
        property PlayersList:string read GetPlayersList;
        property RoomsList:string read fRoomsList;
        property PostsList:string read GetPostsList;
        procedure UpdateState();
      end;
  
  