TGregorianDate.FYear

Source

DateTime.Calendar.Gregorian.Date.pas (53)