delphi saber el dia de la semana

uses DateUtils

(...)

var
diaSemana: integer;
begin

diaSemana:=DayOfWeek(now);
showmessage(inttostr(diaSemana));


(...)






.