var
  myDate : TDateTime;
  day    : array[1..7] of string;

begin
  // Мы не можем использовать LongDayNames - он начинается с воскресенья
  day[1] := 'Понедельник';
  day[2] := 'Вторник';
  day[3] := 'Среда';
  day[4] := 'Четверг';
  day[5] := 'Пятница';
  day[6] := 'Суббота';
  day[7] := 'Воскресенье';

  myDate := EncodeDate(2002, 12, 25);

  ShowMessage('Рождество 2002г. '+day[DayOfTheWeek(myDate)]);
end;