[Neftali [Germán.Estévez]]

También esta otra:

Código Delphi [-]
  Str := FormatDateTime('dddd', Now());
  MessageDlg('Día: ' + Str, mtInformation, [mbOK], 0);