Fecha en formato largo en Catalán

[srm]

Hola,
Si hago
Código Delphi [-]FormatDateTime( 'dddd, d "de" mmmm "de" yyyy', Date)

obtengo:
viernes, 2 de febrero de 2007

Necesito que además me la funcion me devuelva la fecha en catalán (sin cambiar las configuraciones regionales de Windows)

He buscado por ahí, y no he encontrado ninguna rutina que haga esto.

¿Me podeis hechar una mano?

[srm]

yo me respondo:

Código Delphi [-]
var
  FS: TFormatSettings;
begin
  FS.LongDayNames[ 1]   := 'diumenge';
  FS.LongDayNames[ 2]   := 'dilluns';
  FS.LongDayNames[ 3]   := 'dimarts';
  FS.LongDayNames[ 4]   := 'dimecres';
  FS.LongDayNames[ 5]   := 'dijous';
  FS.LongDayNames[ 6]   := 'divendres';
  FS.LongDayNames[ 7]   := 'dissabte';
  FS.LongMonthNames[ 1] := 'de gener';
  FS.LongMonthNames[ 2] := 'de febrer';
  FS.LongMonthNames[ 3] := 'de març';
  FS.LongMonthNames[ 4] := 'd''abril';
  FS.LongMonthNames[ 5] := 'de maig';
  FS.LongMonthNames[ 6] := 'de juny';
  FS.LongMonthNames[ 7] := 'de juliol';
  FS.LongMonthNames[ 8] := 'd''agost';
  FS.LongMonthNames[ 9] := 'de setembre';
  FS.LongMonthNames[10] := 'd''octubre';
  FS.LongMonthNames[11] := 'de novembre';
  FS.LongMonthNames[12] := 'de desembre';
  FormatDateTime( 'dddd, d mmmm "de" yyyy', Date, FS);

ala, espero que le sea de ayuda a alguien.

Saludos