Sacar mes

[Casimiro Noteví]

No recuerdo una función de delphi, pero como dice rgstuamigo, puedes usar decodedate, o crearte una función más o menos así:

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:

iMes := getDiaMesAno('M',fecha);