procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
  JArray : TJsonArray  ;
  i         : Integer     ;
  TStrL     : TStringList;
  js_name   : string ;
  js_color  : string ;
  str       : string = '[{"Name": "Cat","Color": "White"},{"Name": "Ant","Color": "Red"},{"Name": "Zebar","Color": "Black"}]';
begin
  TStrL := TStringList.Create;
  TStrL.Sorted := true;
  JArray := TJSONarray(TJsonObject.ParseJSONValue(str));
  for i := 0 to JArray.Size -1 do
  begin
    js_name := TjsonObject(JArray.Get(i)).GetPairByName('Name').JsonValue.ToString;
    js_color := TjsonObject(JArray.Get(i)).GetPairByName('Color').JsonValue.ToString;
    TStrL.add(js_name+','+js_color);
  end;
  frm_main.Memo1.Lines.Text := TStrL.text;
  TStrL.Free;
end;

[
    {
        "Name": "Cat",
        "Color": "White"
    },
    {
        "Name": "Ant",
        "Color": "Red"
    },
    {
        "Name": "Zebar",
        "Color": "Black"
    }
]

Ant,Red
Cat,White
Zebar,Black

Cat,White
Ant,Red
Zebar,Black

procedure MyProcedure();
var
JsonArray : TJsonArray  ;
i         : Integer     ;
JS_temp   : TJsonObject ;
js_name   : TJsonString ;
js_color  : TJsonString ;
begin
    JsonArray := TJsonArray.ParseJSONValue(
    '[
    {
        "Name": "Cat",
        "Color": "White"
    },
    {
        "Name": "Ant",
        "Color": "Red"
    },
    {
        "Name": "Zebar",
        "Color": "Black"
    }
    ]'
    );
    for i := 0 to JsonArray.Size -1 do
    begin
        js_temp := TJSONObject (TJSONObject(JsonArray.Get(i))) ;
        js_name := TJSONString(JS_temp.GetPairByName('balance').JsonValue);
        js_color := TJSONString(JS_temp.GetPairByName('color').JsonValue);
        Form1.Memo1.Lines.add(js_name.Value+','+js_color.Value)
    end;
end;