请问DayOfWeek怎么用？(50分)

DayOfWeek怎么用？
比如我想知道2000年1月7号周几？
谢谢

procedure TForm1.Button1Click(Sender: TObject);

var
ADate: TDateTime;
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';
ADate := StrToDate('2001-01-07');
ShowMessage('2000-01-07'+ ' is a ' + days[DayOfWeek(ADate)]);//对不起,少了一个括号
end;

多人接受答案了。

var zj:integer;
xq:string;
begin
xq:='星期';
zj:=dayofweek(now);
case zj of
1:xq:=xq+'日';
2:xq:=xq+'一';
3:xq:=xq+'二';
4:xq:=xq+'三';
5:xq:=xq+'四';
6:xq:=xq+'五';
7:xq:=xq+'六';
end;
showmessage(xq);
end;