怎样知道今天是星期几（急，在线等待。谢谢了）(100分)

怎样知道今天是星期几（急，在线等待。谢谢了）

DayOfWeek(Date:TDateTime)
DayOfWeek(now)

procedure TForm1.Button1Click(Sender: TObject);
var
days:array[1..7] of string;
begin
days[1] := 'Sunday';
days[2] := 'Monday';
days[3] := 'Tuesday';
days[4] := 'Wednesday';
days[5] := 'Thursday';
days[6] := 'Friday';
days[7] := 'Saturday';
showmessage(days[DayOfWeek(Date)]);
end;

多人接受答案了。