http://www.delphisources.ru/forum/sh...43&postcount=5
посмотрел еще 1 вариант, попробовал
Код:
var JSON:ISuperObject; STR: string;
begin
JSON := SO(sMemo1.Text); // в мемо ответ от вк в формате json
STR:=JSON.S['peer_id'];
ShowMessage(STR);
end;
результат тот же, окошко showmessage появляется пустым) тобиш в переменной STR пусто
ps delphi7, win7