como faço para mandar o que esta em um edit para o json

como faço para mandar o que esta em um edit para o json vou por minha programação aqui utilizo delphi 10
procedure TCA_0004.Bbtn_GravarClick(Sender: TObject);
var
code : Integer;
sResponse : String;
Json : String;
JsonToSend : TStringStream;
begin
Json := '{"cnpj" : "1234567891012", "descricao" : "teste@teste.com.br"}';
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://reconhecimento-facial.jelastic.saveincloud.net/empresas', 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;