Estorno Farmacia Popular

Boa tarde pessoal
estou tentando implementar o estorno na farmacia popular mas não estou conseguindo.
Faço tudo como manda o exemplo no site, mas sempre me retorna dados inválidos na solicitação
Alguém poderia disponibilizar um exemplo de como faze-lo.
Um trecho do meu código:
var
  i: integer;
  WSDataSus: ServicoSolicitacaoWS;
  EstornoFP: EstornoDTO;
  CfeEstorno: ConfirmacaoEstornoDTO;
  UsuarioFP: UsuarioFarmaciaDTO;
  Medicamentos: ArrayOfMedicamentoDTO;
  cdPro: string;
begin
  CdsVit.DisableControls;
  CdsVit.First;
  if not DataFarma.CdsPar.Active then
    DataFarma.CdsPar.Open;
  WSDataSus := (DataFarma.HTTPRIOFP as ServicoSolicitacaoWS);
  UsuarioFP := UsuarioFarmaciaDTO.Create;
  UsuarioFP.usuarioFarmacia := TrimRight(DataFarma.CdsParFARMAPUSR.Value);
  UsuarioFP.senhaFarmacia := TrimRight(DataFarma.CdsParFARMAPSNH.Value);
  EstornoFP := EstornoDTO.Create;
  EstornoFP.nuAutorizacao := CdsVdsVFPAUT.Value;
  EstornoFP.nuCnpj := DataFarma.CdsParCNPJ.Value;
  SetLength(Medicamentos, GridItem.SelectedList.Count);
  for i := 0 to GridItem.SelectedList.Count - 1 do
  begin
    CdsVit.GotoBookmark(GridItem.SelectedList.Items[i]);
    Medicamentos[i] := MedicamentoDTO.Create;
    Medicamentos[i].coCodigoBarra := CdsVitPROBAR.Value;
    Medicamentos[i].qtDevolvida := CdsVitVENPQD.Value;
    CdsVit.FreeBookmark(GridItem.SelectedList.Items[i]);
  end;
  EstornoFP.arrMedicamentoDTO := Medicamentos;
  CfeEstorno := ConfirmacaoEstornoDTO.Create;
  CfeEstorno := WSDataSus.executarEstorno(EstornoFP, UsuarioFP);


Se alguém puder dar uma dica desde já agradeço
Fausto