TForEachNStep::SetExecFunction