[dec]

Hola,

Código Delphi [-]
var
  diaSemana: string;
begin
   diaSemana := FormatDateTime('dddd', Date);
end;