Функция DayOfWeek – выдает индекс дня недели для значения TDateTime

Функция DayOfWeek в Delphi выдает индекс дня недели для значения TDateTime.

Функция DayOfWeek: Показ дня недели для Рождества 2002 года

var
  myDate : TDateTime;
  day    : string;

begin
  myDate := EncodeDate(2002, 12, 31);

  day := LongDayNames[DayOfWeek(myDate)];

  ShowMessage('Рождество 2002 года '+day);
end;