Hola..
solo para decir que yo utilizo esto para imprimir el día, mes y año en una factura.. dia en formato de 2 digitos, mes en formato de texto (palabra) y el último digito del año
Código Delphi
[-]
sDia.Caption := FormatDateTime('dd', Datos.IBQ_Factura['Fac_Fecha_Emision']);
sMes.Caption := FormatDateTime('mmmm', Datos.IBQ_Factura['Fac_Fecha_Emision']);
sAno.Caption := Copy(FormatDateTime('y', Datos.IBQ_Factura['Fac_Fecha_Emision']),2,1);
espero te sirva...