lbl_Time.Caption := FormatDateTime('HH:NN:SS',now);

  lbl_Week.Caption := FormatDateTime('ddd',Now);

  if Pos('星期',lbl_Week.Caption)=0 then

  lbl_Week.Caption := '星期'+lbl_Week.Caption;

  lbl_Date.Caption := FormatDateTime('yyyy年mm月dd日 ddd',Now);

另外一个：

var
  Date,XQ,Time:string;
begin
  Date := FormatDateTime('yyyy年mm月dd日',now);
  case DayOfWeek(Now) - 1 of
    1: XQ := '星期一';
    2: XQ := '星期二';
    3: XQ := '星期三';
    4: XQ := '星期四';
    5: XQ := '星期五';
    6: XQ := '星期六';
    7: XQ := '星期日';
  end;
  time := FormatDateTime('hh:mm:ss',Now);
  lbdt.Caption := Date;
  lbXQ.Caption := XQ;
  lbTime.Caption := Time;