Amigo isto funcionou para min em MG
if StringInSet(CodigoANP.AsString,['210203001','320101001','320101002',
'320102002','320102001','320102003','320102005','320201001','320102001','320103001','220102001',
'320301001','320103002','820101032','820101026','820101027','820101004','820101005','820101022',
'820101031','820101030','820101014','820101006','820101016','820101015','820101025','820101017',
'820101018','820101019','820101020','820101021','420105001','420101005','420101004','420102005',
'420106001','420106002','420301002','510101001','510201003','420102004','820101011','830101001',
'410103001','510101002','510301003','420104001','820101003','420301004','410101001','510102001',
'510103001','820101033','820101013','420202001','410102001','510102002','510301001','820101034',
'820101012','420301001','430101004','510201001'])then
begin
CST := cstRep60;
ICMS.vBCSTRet := >0; tem que ser maior que Zero.
ICMS.vICMSSTRet := 0;
ICMS.vBCSTDest := 0;
ICMS.vICMSSTDest := 0;
end;