No recuerdo una función de delphi, pero como dice
rgstuamigo, puedes usar decodedate, o crearte una función más o menos así:
Código:
function getDiaMesAno( cQue:char; dFecha:TDateTime ):integer;
var
iD, iM, iA : Word;
cT : Char;
begin
Result :=0;
DecodeDate(dFecha,iD,iM,iA);
cT := UpCase(cQue);
if cT='D' then result := integer(iD)
else if cT='M' then result := integer(iM)
else if cT='A' then result := integer(iA);
end;
Cuando necesites obtener el mes:
Código:
iMes := getDiaMesAno('M',fecha);