TGregorianTime.Copy

Source

DateTime.Calendar.Gregorian.Time.pas (50)