Nimm XSuperObject von hier:
https://github.com/onryldz/x-superobject
Lade deine JSON Datei in die Variable json, zum Beispiel mit TFile.ReadAllText('filename')
In success hast Du dann true oder false, und in der Schleife in id und locked die jeweiligen Werte, welche Du natürlich dort weiter verarbeiten must.
Delphi-Quellcode:
procedure ParseJson;
var
id,locked:string;
success:boolean;
obj:iSuperObject;
arr:iSuperArray;
begin
obj:=so(json);
success:=obj.B['success'];
arr:=obj.A['data'];
for i:=0 to arr.Length-1 do
begin
id:=arr.O[i].S['id'];
locked:=arr.O[i].S['locked'];
end;
end;