关于日期的跨世纪问题(100分)

朋友们好：
我在程序的左下角做了一个显示日期和时间的状态栏，程序编译执行后，我的系统
日期为2001年终1月6日，可是程序的状态栏中却永远显示着1999年终12月30日？？？

procedure TDForm.DTimerTimer(Sender: TObject);
begin
StatusBarTime.Caption := DateTimeToStr(Time);
end;

请给予斧正，谢谢了！！！

label1.Caption := DateTimeToStr(Now);

procedure TDForm.DTimerTimer(Sender: TObject);
begin
StatusBarTime.Caption := FormatDateTime('yyyy"年"mm"月"dd"日"',<font color = #ff0000><strong>Now</font></strong>
end;

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
StatusBar1: TStatusBar;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Statusbar1.Panels[0].Text := DateTimeToStr(Now);
end;

end.

StatusBarTime.Caption := DateToStr(Date);

来迟了，同意笑傲江湖，BaKuBaKu，pqx的观点！

StatusBarTime.Caption := FormatDateTime('yyyy-mm-dd',Now);

谢谢大家了！