Moin Deven,
erst einmal herzlich Willkommen hier in der Delphi-PRAXiS.
das aktuelle Datum erhältst Du mit now.
So
ShowMessage(FormatDateTime('yyyy',now));
kannst Du dann das aktuelle Jahr als vierstelligen Text ausgeben, oder sonstwie verwenden.
[EDIT]
Mist, zu spät
[/EDIT]