Fecha a texto

Pdp9 prueba esta funcioncilla, quizá no funcione a la primera porque no lo he podido probar pero supongo que te servirá.
Saludos,
Antipauli
Nota: Falta acabar MesLetras con los meses restantes.
function RetornaFechaLarga(Fecha:TDateTime):String;
function DiaSemana(Fecha:TDatetime):String;
begin
Case DayOfWeek(Fecha) of
0 : Result := 'Domingo';
1 : Result := 'Lunes';
2 : Result := 'Martes';
3 : Result := 'Miércoles';
4 : Result := 'Jueves';
5 : Result := 'Viernes';
6 : Result := 'Sábado';
end;
end;
function MesLetras(Mes:Integer):String;
begin
Case Mes of
1 : Result := 'Enero';
2 : Result := 'Febrero';
...
...
end;
end;
var
d,m,a:integer;
d2,m2,a2:word;
begin
DecodeDate(Fecha, a2, m2, d2);
Result := DiaSemana(Fecha) + ' de ' + MesLetras(m2) + ' de ' + string(a2);
end;