Função que retorna o mês

{... Criado por Ricardo de Oliveira Santos ...}
function DescricaoMes(data: String): String;
var
Dia, Mes, Ano : Word;
Dias_de_Semana: array[1..12] of String ;
begin
if data <> '' then
begin
Dias_de_Semana[1] := 'Janeiro';
Dias_de_Semana[2] := 'Fevereiro';
Dias_de_Semana[3] := 'Março';
Dias_de_Semana[4] := 'Abril';
Dias_de_Semana[5] := 'Maio';
Dias_de_Semana[6] := 'Junho';
Dias_de_Semana[7] := 'Julho';
Dias_de_Semana[8] := 'Agosto';
Dias_de_Semana[9] := 'Setembro';
Dias_de_Semana[10] := 'Outubro';
Dias_de_Semana[11] := 'Novembro';
Dias_de_Semana[12] := 'Dezembro';

DecodeDate(StrToDateTime(data),Ano,Mes,Dia);

DescricaoMes := Dias_de_Semana[Mes];
end
else
DescricaoMes := '';
end;