Colocando a data por extenso no Delphi

Veja neste exemplo como colocar uma data qualquer por extenso.

procedure TForm1.Button1Click(Sender: TObject);
const
    // Declara e inicializa o array de meses
    meses: Array[1..12] of String = (’Janeiro’, ‘Fevereiro’, ‘Março’, ‘Abril’,
        ‘Maio’, ‘Junho’, ‘Julho’, ‘Agosto’,
        ’Setembro’, ‘Outubro’, ‘Novembro’,
        ’Dezembro’);
    // Declara e inicializa o array de dias da semana
    diasemana: Array[1..7] of String = (’Domingo’, ‘Segunda-Feira’,
        ’Terça-Feira’, ‘Quarta-Feira’,
        ’Quinta-Feira’, ‘Sexta-Feira’,
        ’Sábado’);
var
    dia, mes, ano: Word;
    numdiasemana: Integer;
    dataextenso: String;
begin
    // Quebra a data
    DecodeDate(Date, ano, mes, dia);

    // Pega o número do dia da semana
    numdiasemana := DayOfWeek(Date);

    // Monta a data por extenso
    dataextenso := diasemana[numdiasemana] + ‘, ‘ +
        IntToStr(dia) + ‘ de ‘ +
        meses[mes] + ‘ de ‘ +
        IntToStr(ano);

// Mensagem da data por extenso
    ShowMessage(dataextenso);
end;