anchor.diff:  function THTTPPostThread.ReplyToString(s:string):string;
   begin
     s := RightStr(s, Length(s)-Pos('</p>',s)-3);
  -  Result := StringReplace(s,'<br>',#13#10,[rfReplaceAll, rfIgnoreCase]);
  +  s := StringReplace(s,'<br>',#13#10,[rfReplaceAll, rfIgnoreCase]);
  +  Result := Copy(s, 0, length(s)-3);
   end;
   
   { For some reason returned string begins with Unicode Byte-Order Mark (BOM) $EFBBBF
  
positive.code: 
  procedure TKMLobby.AskServerFor(i:byte; aQuery,aParams:string; aReturn:PString);
  begin
    if fTT[i]<>nil then
      if fTT[i].Terminated then fTT[i] := nil;
  
    if fTT[i]<>nil then exit; //
  
  
    fTT[i] := THTTPPostThread.Create(fServerAddress+aQuery, aParams, aReturn);
    fTT[i].FreeOnTerminate := true;
  end;
  
  
  
negative.code:       fPostsList:string;
  
        fUserTT:THTTPPostThread;
        //fTT:array[1..16]of THTTPPostThread;
  
        function GetPlayersList():string;
        procedure AskServerFor(i:byte; aQuery,aParams:string; aReturn:PString);
  