Fórum java.lang.nullpointerexception socorro alguem sabe #442064

Boa tarde, no estorno da venda para farmacia popular fica me retornando esse erro de java.lang.nullpointerexception como resolver?

Segue meu codigo abaixo:

UsuarioFP := UsuarioFarmaciaDTO.Create;
UsuarioFP.usuarioFarmacia := trim(frmPrincipal.qryParametro.fieldbyname('usuariofarmacia').AsString);
UsuarioFP.senhaFarmacia := trim(frmPrincipal.qryParametro.fieldbyname('senhafarmacia').AsString);
//
EstornoFP := EstornoDTO.Create;
EstornoFP.nuAutorizacao := vAut;
EstornoFP.nuCnpj := ExtrairStr(ExtrairStr(ExtrairStr(frmPrincipal.qryParametro.fieldbyname('cnpj').AsString,'.'),'/'),'-');
//
SetLength(Medicamentos, 1);
//
Medicamentos[1] := MedicamentoDTO.Create;
Medicamentos[1].coCodigoBarra := vCodBarra;
Medicamentos[1].qtDevolvida := StrToInt(vqtde);
//
memo1.Clear;
Memo1.Lines.Add(' CONFIRMAÇAO ESTORNO ');
//
EstornoFP.arrMedicamentoDTO := Medicamentos;
CfeEstorno := ConfirmacaoEstornoDTO.Create;
CfeEstorno := GetServicoSolicitacaoWS().executarEstorno(EstornoFP, UsuarioFP);
//
memo1.Lines.Add(' nuEstorno : '+ CfeEstorno.nuEstorno);
memo1.Lines.Add(' descMensagemErro : '+ CfeEstorno.descMensagemErro);
memo1.Lines.Add(' situacaoEstorno : '+ CfeEstorno.inSituacaoEstorno);
memo1.Lines.Add(' ');
//
item:=0;
//
for i:=0 to 1 do
begin
//
if EstornoFP.arrMedicamentoDTO[i].qtEstornada>0 then
begin
//
Medicamentos := EstornoFP.arrMedicamentoDTO;
//
SetLength(Medicamentos, 1);
//
Medicamentos[item].inAutorizacaoMedicamento := EstornoFP.arrMedicamentoDTO[i].inAutorizacaoEstorno;
memo1.Lines.Add('in autorizacao medicamento'+EstornoFP.arrMedicamentoDTO[i].inAutorizacaoMedicamento);
//
Medicamentos[item].coCodigoBarra := EstornoFP.arrMedicamentoDTO[i].coCodigoBarra;
memo1.Lines.Add('codigo de barra'+EstornoFP.arrMedicamentoDTO[i].coCodigoBarra);
//
Medicamentos[item].qtDevolvida := EstornoFP.arrMedicamentoDTO[i].qtDevolvida;
memo1.Lines.Add('qt. devoldida : '+floattostr(EstornoFP.arrMedicamentoDTO[i].qtDevolvida));
//
Medicamentos[item].qtEstornada := EstornoFP.arrMedicamentoDTO[i].qtEstornada;
memo1.Lines.Add('qt. estornada : '+floattostr(EstornoFP.arrMedicamentoDTO[i].qtEstornada));
//
end;
//
memo1.Lines.Add(' ');
//
Item:=Item+1;
//
end;

Grato