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
LFecha.Caption := DiaSemana[DayOfWeek(Date)] + ', ' +
IntToStr(DayOf(Date)) + ' de ' + Mes[MonthOf(Date)] + ' de ' +
IntToStr(YearOf(Date));
Gracias a todos.
Un saludo.