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