Obrigado vou corrigir aqui agora.
e te dou o retorno
A mensagem agora é Total do ICMS difere do somatório dos itens ;
Agradeço a ajuda
Total.ICMSTot.vBC := 0;
Total.ICMSTot.vICMS := resultado*form2.FDQuery4sum.Value;
Total.ICMSTot.vBCST := 0;
Total.ICMSTot.vST := 0;
Total.ICMSTot.vProd := form2.FDQuery4SUM.Value;
Total.ICMSTot.vFrete := 0;
Total.ICMSTot.vSeg := 0;
Total.ICMSTot.vDesc := 0;
Total.ICMSTot.vII := 0;
Total.ICMSTot.vIPI := 0;
Total.ICMSTot.vPIS := 0;
Total.ICMSTot.vCOFINS := 0;
Total.ICMSTot.vOutro := 0;
Total.ICMSTot.vNF := form2.FDQuery4SUM.Value;
// partilha do icms e fundo de probreza
Total.ICMSTot.vFCPUFDest := 0.00;
Total.ICMSTot.vICMSUFDest := 0.00;
Total.ICMSTot.vICMSUFRemet := 0.00;
Total.ISSQNtot.vServ := 0;
Total.ISSQNTot.vBC := 0;
Total.ISSQNTot.vISS := 0;
Total.ISSQNTot.vPIS := 0;
Total.ISSQNTot.vCOFINS := 0;
end;