http://www.delphibasics.co.uk/RTL.asp?Name=DecodeDate
var Year, Month, Day : Word;begin DecodeDate(Date, Year, Month, Day); ShowMessage('Year : '+IntToStr(Year));