Cambiar formato de fecha 12/09/2011 a 12 de Septiembre de 2011

[negrokau]

Empezado por oscarac

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
varhoy:TDate;
begin
hoy:=Date;
ShowMessage(FormatDateTime('dddd dd ''de'' mmmm yyyy',hoy));
end;

Hola a todos, tanto tiempo, tengo un problemilla, como se puede poner el mes en mayusculas? el formeto me convierte super bien solo que el mes lo convierte en minuscula (11 de septiembre 2012), lo que necesito es que me convierta asi (11 de SEPTIEMBRE 2012), me podrian ayudar a solucionarlo, desde ya muchas gracias...