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