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