Небольшая проблемка

[Marques22]

Я делаю свой небольшой проект и столкнулся с проблемой! Я не знаю как работать с датой, а точнее как вытащить из нее день недели(Понедельник, Вторник и тд). Подскажите если знаете. Заранее спасибо!

[ArtGrek]

Пример кода : Показ дня недели для Рождества 2002 г.

var
  myDate : TDateTime;
  day    : string;

begin
  myDate := EncodeDate(2002, 12, 31);
  day := LongDayNames[DayOfWeek(myDate)];
  ShowMessage('Рождество 2002г. '+day);
end;

Рождество 2002г. Вторник

[m0dE^]

myDate = Date();

Это сегодняшняя дата