En el sistema contable que estoy desarrollando tengo esta rutina
quiza la puedas modificar a tu gusto
Código Delphi
[-]
Function NombreMes (Mes : Integer) : string;
begin
result := Trim ( Copy(
'Apertura Enero Febrero Marzo Abril Mayo Junio Julio Agosto SetiembreOctubre NoviembreDiciembreAjustes Cierre',
(Mes+1)*9-8,9));
End;
La llamo asi
NombreMes (0); // Devuelve Apertura