[ecfisa]

Hola.

Si solamente querés el mes en mayúsculas podrías hacer:

Código Delphi [-]
function UpperCaseMonth(D: TDate): string;
var
  i: Integer;
begin
  Result:= FormatDateTime('dddd dd ''de'' mmmm yyyy', D);
  for i:= 1 to 12 do
    if Pos(LongMonthNames[i], Result) > 0 then
      Result:= StringReplace(Result, LongMonthNames[i], UpperCase(LongMonthNames[i]), []);
end;

Llamada de ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Fecha: string;
begin
  Fecha:= UpperCaseMonth(Date);
  ...
end;

Saludos.