I answer my question because I thought this could help someone.
Use FormatSettings.EraInfo[x].EraName and other properties of the EraInfo entry.
FormatSettings now contains an array of EraInfo entries.
The for loop can be written:
for I := Low(FormatSettings.EraInfo) to High(FormatSettings.EraInfo) do begin ... end;
Warren p
source share