function YearOf(Value: DateTime; UTC: Boolean=False): Integer
X := YearOf(Date); // X is 2012 (assuming a date of 02/13/2012)