Delpshi - WebService - Json

Eu estou fazendo uma integracao com um site atraves de Json

Para verificar se existe o registro eu uso um IDHTTP da palheta indy da seguinte forma

// Configurar o HTTP
IdHTTP.Request.Clear;
IDHttp.Request.CustomHeaders.Clear;
IdHTTP.Request.ContentType := 'application/json';
IdHTTP.Request.Accept := 'application/json';
IdHTTP.Request.CustomHeaders.Add('Authorization: Token token="6d77dfdadfadfadsfasdfadfasdfasdfasdfasdf"');

// Verificar se ja existe o registro
// aqui ele vai retornar um string no formato json
RetornoSite := IdHTTP.Get(host + '/api/empresas/'+objetoCliente.Id);

// Inserir um registro
// objeto registro é uma stringlist com apenas uma linha com a string Json
// no meu caso é
Registro := TStringList.Create;
Registro.Add('{"empresa": {"id": "51578", "nome": "A. PEREIRA & CIA LTDA" , "perfil_id" : "3" , "pf" : "false" }}');
IdHTTP.Post(host + '/api/empresas', Registro);

// Atualizar um registro
// Para fazer o put tem que criar um stream e passar a string json
Stream := TStringStream.Create('{"empresa": {"id": "51578", "nome": "A. PEREIRA & CIA LTDA" , "perfil_id" : "3" , "pf" : "false" }}');
IdHTTP.Put(host + '/api/empresas/'+objetoCliente.Id, Stream);

Até agora esta funcionando, mas ainda está em fase de testes.
Espero er ajudado