Парсинг JSON и вывод в Label

procedure TForm1.Button1Click(Sender: TObject);
var
  PostData: TStringList;
  html: TStringStream;
begin
try
    PostData := TStringList.Create;
    html := TStringStream.Create('');
    idHTTP1.HandleRedirects:=true;
    PostData.Add('key='+Edit1.Text); // добавим ключ к запросу
    PostData.Add('identifier='+Edit2.Text); // добавим идентификатор пользователя (е-майл)
    IdHTTP1.Post('http://www.мой_сайт.ru/бла-бла-бла/lic/?info&',PostData,html);
    Memo1.Text := Utf8ToAnsi(html.DataString);
   finally
  end;
      html.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
 Begin
  Memo1.Lines.SaveToFile('otvet.json');
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  r: TRegExpr;
begin
  StringGrid1.Cols[0].Add('key');
  StringGrid1.Cols[1].Add('identifier');
  StringGrid1.Cols[2].Add('customer_name');
  StringGrid1.Cols[3].Add('ip');
 
  r := TRegExpr.Create;
  r.Expression := '"key":"(.*?)"'; // key
    if r.Exec(Memo1.text) then
    repeat
      StringGrid1.Cols[0].Add(r.Match[1]);
    until not r.ExecNext;
 
   r.Expression := '"identifier":"(.*?)"'; // identifier
    if r.Exec(Memo1.text) then
    repeat
      StringGrid1.Cols[1].Add(r.Match[1]);
    until not r.ExecNext;
 
      r.Expression := '"customer_name":"(.*?)"'; // customer_name
    if r.Exec(Memo1.text) then
    repeat
      StringGrid1.Cols[2].Add(r.Match[1]);
    until not r.ExecNext;
 
      r.Expression := '"ip":"(.*?)"'; // ip
    if r.Exec(Memo1.text) then
    repeat
      StringGrid1.Cols[3].Add(r.Match[1]);
    until not r.ExecNext;
 
   r.Free;
end;
 
end.