Literal semana y mes sale en inglés

[fidel]

Encuentro tres obstaculos:

1. Mi inglés es demasiado pobre.
2. No me veo capacitado para modificar lo que ahí se supone que explica.
3. Al reconstruir Lazarus me da un error cuando llega a la reconstrucción de los ejemplos y se detiene.

Por lo tanto voy por el camino fácil y con unas líneas más de código pongo la fecha en español.

Código Delphi [-]
Const
  Mes: Array[1..12] of String = ('enero', 'febrero', 'marzo', 'abril',
       'mayo', 'junio', 'julio', 'agosto', 'septiembre', 'octubre',
       'noviembre', 'diciembre');
  DiaSemana: Array[1..7] of String = ('domingo','lunes', 'martes',
             'miércoles', 'jueves', 'viernes', 'sábado');

begin
  //fecha
  LFecha.Caption := DiaSemana[DayOfWeek(Date)] + ', ' +
  IntToStr(DayOf(Date)) + ' de ' + Mes[MonthOf(Date)] + ' de ' +
  IntToStr(YearOf(Date));

Gracias a todos.

Un saludo.