Source position: classesh.inc line 614
type TStringsForEachMethod = procedure(
const CurrentValue: string
) of object;