Valida Números de WhatsApp

// Chamar a função para validar se os números possuem WhatsApp
begin
  Numeros := edtNumeroContato.Text; // Assume que edtNumeroContato é um TEdit onde os números são inseridos separados por vírgula
  try
    ResponseArray := ApiEuAtendo1.ExistWhats(Numeros, ErroMsg);
    
    if Assigned(ResponseArray) then
    begin
      // Itera sobre a resposta para cada número
      for i := 0 to ResponseArray.Count - 1 do
      begin
        ResponseItem := ResponseArray.Items[i] as TJSONObject;
        memo1.Lines.Add('Número: ' + ResponseItem.GetValue<string>('number'));
        memo1.Lines.Add('JID: ' + ResponseItem.GetValue<string>('jid'));
        memo1.Lines.Add('Existe no WhatsApp: ' + BoolToStr(ResponseItem.GetValue<Boolean>('exists'), True));
        
        if ResponseItem.TryGetValue<string>('name', ErroMsg) then
          memo1.Lines.Add('Nome: ' + ErroMsg)
        else
          memo1.Lines.Add('Nome: Não disponível');

        memo1.Lines.Add(''); // Linha em branco para separação visual entre os números
      end;
    end
    else if ErroMsg <> '' then
    begin
      memo1.Lines.Add('Erro ao verificar os números: ' + ErroMsg);
    end
    else
    begin
      memo1.Lines.Add('Nenhum número possui WhatsApp.');
    end;
  except
    on E: Exception do
    begin
      memo1.Lines.Add('Erro ao verificar os números: ' + E.Message);
    end;
  end;
end;