Data por extenso no Delphi

Função que retorna uma string com a data por extenso com o dia da semana.