Jak z daty otrzymać nr dnia tygodnia?

Cześć!
Nie mogę sobie poradzić z pobraniem nr. dnia tygodnia z TDate;
Chodzi mi o coś takiego:

Niedziela = 1;
Poniedziałek=2
Wtorek=3
Środa=4
Czwartek=5
Piątek=6
Sobota=7

I jeżeli dzisiaj jest wtorek to zmienna:=3;

dzięki

DateUtils [sciana]

DayOfTheWeek

Unit
DateUtils

Category
datetime routines

Delphi syntax:

const

  DayMonday = 1;
  DayTuesday = 2;
  DayWednesday = 3;
  DayThursday = 4;
  DayFriday = 5;
  DaySaturday = 6;
  DaySunday = 7;

dziękówka!