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