www.nsoft-s.com

procedure mcEvent(iCmd: DWORD; sJSONData: WideString);safecall;
begin
  case iCmd of
    MCC_On_LoginSucess: mcSendDataToMyChat(MCC_Get_ChannelsList, '');
    MCC_On_ChannelsList: ShowMessage(sJSONData);
  end;
end;

procedure mcEvent(iCmd: DWORD; sJSONData: WideString);safecall;
var S:String;
begin
  case iCmd of
    MCC_On_LoginSucess: mcSendDataToMyChat(MCC_Get_ChannelsList, '');
    MCC_On_ChannelsList: S:=sJSONData; //Заполняем переменную
  end;
    showmessage(sJSONData); //Показываем что пришло
    showmessage(s); //Смотрим что в переменной
end;

{"1":{"CreatorUIN":0,"UsersCount":2,"SyncLogs":true,"Created":"16.07.2014.12.58.37","Secured":false,"Topic":"Главный канал чата","Name":"Главный"},
"11":{"CreatorUIN":0,"UsersCount":2,"SyncLogs":true,"Created":"16.07.2014.12.58.37","Secured":false,"Topic":"Нет темы","Name":"Test"}}

var
  JSONobj: ISuperObject;
  JSONIterator: TSuperObjectIter;
  iCount: integer; // общее количество каналов
begin
  // st - исходные данные, которые нужно "распарсить"

  iCount  := 0;
  JSONobj := TSuperObject.ParseString(StringToOleStr(st), false);

    if ObjectFindFirst(JSONobj, JSONIterator) then
      repeat
        
        sAddTxtChannel2List(strtoint(JSONIterator.key), // это и есть ID канала
                                     JSONIterator.val.B['Secured'],
                                     JSONIterator.val.I['UsersCount'],
                                     JSONIterator.val.S['Name'],
                                     JSONIterator.val.S['Topic'],
                                     JSONIterator.val.B['SyncLogs']);
        inc(iCount); // увеличиваем счётчик количества каналов на сервере
      until not ObjectFindNext(JSONIterator);

  ObjectFindClose(JSONIterator);

  JSONobj.Clear(true);
  JSONobj := nil;
end;