Sieht so aus als wäre das wirklich ein Problem in TStringHelper.IndexOfAny() bzw. TStringHelper.InternalSplit zu sein und gehört wohl ins
QC.
Ein Workaround für dich wäre momentan
s := s.Join(',',[Feld1,Feld2,Feld3,Feld4])+',';
das muss natürlich entfernt werden wenn es einen fix gibt.