[delphi] Jak wyliczyc ktory to tydzien roku z daty?

Chodzi mi o komponent : DateTimePicker1 jak otwiera sie kalendarz , mozna tam ustawic jak w zwyklym komponencie kalendarza zeby byl nr tygodnia w roku ?
Albo jak to chociaz wyliczyc?

Po raz kolejny podstawy matematyki zawiodły...

Result := DayOfTheYear(DateTimePicker.Date) mod 7 + 1

// no chyba nie - przecież rok nie zawsze zaczyna się od poniedziałku... - Ł

dziekuje ale zamiast MOD wpislaem DIV bo mod to byla reszta z dzielenia chyba i dawalo mi 4 zamiast 19 ALE DZIEKI

uses DateUtils;

var
  Year, WeekOfYear, DayOfWeek: Word;
begin
  DecodeDateWeek(Now, Year, WeekOfYear, DayOfWeek);
  ShowMessage(IntToStr(WeekOfYear));
end;