Номер месяца

[MixanMM]

Всем день добрый, такой вопрос, подскажите как моджно в переменную воткнуть номер месяца, например s := DateToStr(Data);, то в переменной s будет записанна дата такого формата 24.05.2010, как мне взять только номер месяца? чтобы переменная была равноа только s:= 05;

[Пепел Феникса]

function GetMonth(ADate:TDateTime):word;
var Y,M,D:word;
begin
 DecodeDate(ADate,Y,M,D);
 Result:=M;
end;

[SERG1980]

s:=FormatDateTime('mm',Data))