怎么实现在状态栏上显示星期

没人顶，我自己来：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
statusbar2.Panels[2].text:=formatdatetime('YYYY-MM-DD HH:MM:SS',now);
end;