Текущее число, день недели, месяц и год (неправильно отображается день недели)

procedure TForm1.FormCreate(Sender: TObject);
const
mes:array [1..12] of string=('Января','Февраля','Марта','Апреля','Мая',
'Июня','Июля','Августа','Сентября','Октября','Ноября','Декабря');
var
date:TDateTime;
Year, Month, Day:word;
dayW : array[1..7] of string;
begin
  date:=TdateTime(now);
  DecodeDate(date,Year,Month,Day);
  dayW[2] := 'Понедельник';
  dayW[3] := 'Вторник';
  dayW[4] := 'Среда';
  dayW[5] := 'Четверг';
  dayW[6] := 'Пятница';
  dayW[7] := 'Суббота';
  dayW[1] := 'Воскресенье';
  Memo1.Text:='Сегодня:'+#10+#13+#10+#13+ inttostr(Day)+' '+mes[Month]+' '+inttostr(Year)+ ' года '+#10+#13 + dayW[ DayOfWeek(day) ];
end;

dayW[2] := 'Понедельник';
  dayW[3] := 'Вторник';
  dayW[4] := 'Среда';
  dayW[5] := 'Четверг';
  dayW[6] := 'Пятница';
  dayW[7] := 'Суббота';
  dayW[1] := 'Воскресенье';