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: 
        property PlayersList:string read GetPlayersList;
        property RoomsList:string read fRoomsList;
        property PostsList:string read fPostsList;
        procedure UpdateState();
      end;
  
  
negative.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])-6,length(s[i]));
  
    Result := s.Text;
    s.Free;
  end;
  
  
  {  }
  function TKMLobby.GetPostsList():string;
  var s:TStringList; i:integer;
  begin
    s := TStringList.Create;
    s.Text := fPostsList;
  
  //  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;
  