json delphi aplicação

estou fzd isso aqui no delphi 10 porem queria saber se no no cnpj e no descricão teria como salvar o que esta em um dbedit por exemplo de cnpj estar 11111111111 escriver o que eta em um teedit teria comoo fazer isso ?
procedure TForm1.Button3Click(Sender: TObject);
var
code : Integer;
sResponse : String;
Json : String;
JsonToSend : TStringStream;
begin
Json := '{"cnpj" : "11111111111", "descricao" : "123testar"}';
JsonToSend := TStringStream.Create( UTF8Encode(Json) );
try
HTTP.Request.Method := 'POST';
HTTP.Request.ContentType := 'application/json';
HTTP.Request.ContentEncoding := 'utf-8';

try
sResponse := HTTP.Post('http://minhaurl.com.br', JsonToSend);
except
on E: Exception do
begin
mmResultado.Lines.Add('Error on request: '#13#10 + e.Message);
Exit;
end;
end;

mmResultado.lines.clear;
mmResultado.lines.add(sResponse);
finally
JsonToSend.Free();
end;
end;