delphi json 返回值有result

rocedure TServerContainer1.DSHTTPService1FormatResult(Sender: TObject;
  var ResultVal: TJSONValue; const Command: TDBXCommand; var Handled: Boolean);
var
  JSONValue: TJSONValue;
  temp: string;
begin
  // 获得类名.方法名
 
    temp := Command.Text;
  //去掉返回值中的result
  if temp.ToUpper = UpperCase('TServerMethods1.getList') then
    begin
    Handled := True;
    JSONValue := ResultVal;
    ResultVal := TJSONArray(JSONValue).Get(0);
    TJSONArray(JSONValue).Remove(0);
    JSONValue.Free;
    end;

 // Handled := True;
end;