Asignar el valor de DayOfTheWeek a una variable

[[gluglu]]

Como puedo asignar el valor que me dá la función DayOfTheWeek a una variable para después trabajar con él.

Código Delphi [-]
var
  Month,Year,Day : Word;
  Fecha : TDateTime;
  K : Word;
begin
  DecodeDate(Now,Year,Month,Day);
  Fecha := EncodeDate(Year,Month,1);
  K     := DayOfTheWeek(Fecha);
end;

Resulta que K siempre acaba teniendo el valor 0 !! Necesito el valor en K porque después tengo que hacer otras operaciones con ese valor.

Gracias y saludos.