[dec]

Hola,

Código Delphi [-]
uses
  SysUtils;

function QueDiaEsHoy : string;
var
  dia: string;
begin
  { El resultado de esta función está
    supeditado al Array LongDayNames.

    Más información en la ayuda de la
    función "FormatDateTime".
  }
  dia := FormatDateTime('dddd', Now);
  Result := Format('Hoy es %s', [dia]);
end;

{ Ejemplo de llamada a QueDiaEsHoy
}
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := QueDiaEsHoy;
end;