Source position: classesh.inc line 605
type TStringsForEachMethodEx = procedure(
const CurrentValue: string;
const index: Integer
) of object;