[[Caral]]

Hola
Un poco mas:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Date: TDate;
begin
   Date:= now;
   label1.Caption:=FormatDateTime('''hoy es'' dddd dd ''de'' mmmm ''de'' yyyy',Date);
end;

Saludos