anchor.diff:    ResultMsg := fHTTP.Post(fPost, fParams);
     ResultMsg := StringReplace(ResultMsg,#$EF+#$BB+#$BF,'',[rfReplaceAll]); //Remove BOM
     if fReturn<>nil then fReturn^ := ReplyToString(ResultMsg) +' /'+ inttostr(random(9));
  +
  +  if fHTTP.Connected then fHTTP.DisconnectSocket;
  +
     fParams.Free;
     fHTTP.Free;
   end;
  
positive.code:   s.Text := fPlayersList;
  
    for i:=0 to s.Count-1 do
      s[i] := Copy(s[i],0,Pos(',',s[i])-1) + ' - ' + Copy(s[i],length(s[i])-4,length(s[i]));
  
    Result := s.Text;
    s.Free;
  end;
  
  
  { Returns player list as: PLAYER - (last_seen) }
  function TKMLobby.GetPostsList():string;
  var s:TStringList; i:integer;
  begin
    s := TStringList.Create;
    s.Text := fPlayersList;
  
    for i:=0 to s.Count-1 do
      s[i] := Copy(s[i],0,Pos(',',s[i])-1) + ' - ' + Copy(s[i],length(s[i])-4,length(s[i]));
  
    Result := s.Text;
    s.Free;
  
negative.code: 
        property PlayersList:string read GetPlayersList;
        property RoomsList:string read fRoomsList;
        property PostsList:string read GetPostsList;
        procedure UpdateState();
      end;
  
  