How To Show Index,Name,Value Json To Memo

result size = 3
index = 0, name = app_name, value = test
index = 1, name = app_date, value = 2022-01-01
index = 2, name = app_time, value = 12:30:40

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
sl:TStringList;
jDataStream: TJSONObject;
jObject: TJSONObject;
i : int;
appindex,appname,appvalue:String;
begin
      sl:=TStringList.Create;
      sl.LoadFromFile(ExtractFilePath(Application.ExeName)+'\json.txt');
      jDataStream := nil;
      jDataStream := TJSONObject(TJSONObject.ParseJSONValue(sl.Text));
      jObject := TJSONObject(jDataStream.GetPairByName('result').JsonValue);
      Form1.Memo1.Text:=sl.text;
      Form1.Memo2.Text:=''; //clear
      if jDataStream <> nil then
       Form1.Memo2.Lines.Add('result size ='+ IntToStr(jObject.Size)) ;
       begin
           For i := 0 To jObject.Size -1  Do
           Begin
           appindex := 'index = '+IntToStr(i);
           appname  := 'name = '  ;
           appvalue := 'value = '+ TJSONString(jObject.GetPairByIndex(i).JsonValue).value ;
           Form1.Memo2.Lines.Add(appindex+', '+appname+', '+appvalue) ;
           End;
       end;
      sl.free
end ;
begin
end.

i will input integer [0]  result  String  ✔️"app_name" Not  ❌ "Test"
i will input integer [1]  result  String  ✔️"app_date"   Not  ❌ "2022-01-01"
i will input integer [2]  result  String  ✔️"app_date"   Not  ❌ "12:30:40t"

OR 

i will input string  ['app_name']  result  Integer  ✔️ 0 
i will input string  ['app_date']    result  Integer  ✔️1 
i will input string  ['app_time']    result  Integer  ✔️2

var
  sl:TStringList;
  jDataStream: TJSONObject;
  jObject: TJSONObject;
  i : int;
  appindex,appname,appvalue:String;
  RegExp: TRegExp;
begin
      sl:=TStringList.Create;
      sl.LoadFromFile(ExtractFilePath(Application.ExeName)+'\json.txt');
      jDataStream := nil;
      jDataStream := TJSONObject(TJSONObject.ParseJSONValue(sl.Text));
      jObject := TJSONObject(jDataStream.GetPairByName('result').JsonValue);
      Form1.Memo1.Text:=sl.text;
      Form1.Memo2.Text:=''; //clear
      if jDataStream <> nil then
      begin
       Form1.Memo2.Lines.Add('result size ='+ IntToStr(jObject.Size)) ;
       RegExp := TRegExp.Create('"\w+":');
       RegExp.InputString := TJSONValue(jDataStream.GetPairByName('result').JsonValue).ToString;
       RegExp.Exec;
           For i := 0 To jObject.Size -1  Do
           Begin
             appindex := 'index = ' + IntToStr(i);
             appname  := 'name = ' + Copy(RegExp.Match[0], 2, Length(RegExp.Match[0]) - 3) ;
             appvalue := 'value = ' + TJSONString(jObject.GetPairByIndex(i).JsonValue).value ;
             Form1.Memo2.Lines.Add(appindex+', '+appname+', '+appvalue) ;
             RegExp.ExecNext
           End;
       end;
      sl.free;
      RegExp.Free;
end ;