[4kusNick]

Код:

var
  inDate: TDateTime;
  xYear, xMonth, xDay: Integer;
  SystemTime: TSystemTime;
begin

  GetLocalTime(SystemTime);
  inDate := SystemTimeToDateTime(SystemTime);
  DecodeDate(inDate, xYear, xMonth, xDay);

  // в xYear - год
  // в xMonth - месяц
  // в xDay - день

end;