Как прочитать JSON в Delphi?

Использую библиотеку System.JSON. Пробую вот так:

buf:=TFile.ReadAllText(Dir + SR.Name);
JSONValue := TJSONObject.ParseJSONValue(buf);
try
  if JSONValue is TJSONArray then
  begin
    for jv in TJSONArray(JSONValue) do
    begin
      showmessage(jv.GetValue<string>('Name'));
    end;
  end;
finally
  JSONValue.Free;
end;

JSONValue в итоге пустой.