Помогите разобраться с Datetimepicker'ом, или выбрать более удобный компонент Опции

[Lik]

Есть решаемая проблемма: нужно выяснить сколько дней в конкретном месяце конкретного года (високосный или обычный). Все это можно решить и через пользовательскую процеду, но не хочется загромождать код, а решить через стандартные компненты, либо у винды спросить... В программе уже присутствует DateTimePicker. Пробовал через него узнать... разобрался с кучей не нужных вещей =) пока ничего конкретного не нашел, зато голова - как в тумане.. "мягко" соображаю . Помогите кто чем может Может есть стандартные запросы какие-нибудь? Собственно TimePicker выбран для удобного задания даты, так что его можно заменить и на др. компонент, у которого, в свою очаредь, можно спросить поболшье информации (день недели, номер недели и т.д.).

[GoodWind]

Код

function DaysOfMonth(mm, yy: Integer): Integer;
begin
  if mm = 2 then  
  begin
    Result := 28;
    if IsLeapYear(yy) then Result := 29;
  end  
  else  
  begin
    if mm < 8 then  
    begin
      if (mm mod 2) = 0 then
        Result := 30
      else
        Result := 31;
    end  
    else  
    begin
      if (mm mod 2) = 0 then
        Result := 31
      else
        Result := 30;
    end;
  end;
end;

взято из DelphiWorld.