Código Delphi [-] ShowMessage( FormatDateTime('dddd', Date) );
ShowMessage( FormatDateTime('dddd', Date) );