ISuperArray Delete function Incorrect

[gorepj]

I find that the Delete function does not correctly delete all matches from an array
Example below does not delete all where make = "Audi". Delphi 10.3
procedure MyProc: TObject);
var
FilterJSON: ISuperObject;
begin
FilterJSON := XSuperobject.SO('{ Vehicles: [ '+
' { '+
' make: "Audi", ' +
' model: "A2", ' +
' type: "Saloon", '+
' price: 12300' +
' }, '+
' { '+
' make: "Audi", ' +
' model: "A4", ' +
' type: "Saloon", '+
' price: 19800' +
' }, '+
' { '+
' make: "Audi", ' +
' model: "A6", ' +
' type: "Saloon", '+
' price: 24000' +
' }, '+
' { '+
' make: "Ford", ' +
' model: "Sierra", ' +
' type: "Saloon", '+
' price: 16500' +
' }, '+
' { '+
' make: "Ford", ' +
' model: "Transit", ' +
' type: "Van", '+
' price: 25000' +
' }, '+
' { '+
' make: "Nissan", ' +
' model: "Qashqai", ' +
' type: "Saloon", '+
' price: 22000' +
' } '+
' ] '+
'}');
Mmo.Lines.Add(
FilterJSON.A['Vehicles'].Delete(function(Arg: IMember): Boolean
begin
with Arg.AsObject do
Result := (S['make'] = 'Audi')
end).AsJSON(true)
);

end;