[AND_REY]

Код:

Var
 St: SYSTEMTIME;
 year: WORD;
begin
 GetLocalTime(St);
 Year:= St.wYear;
 //и. т. д
end;