設計一個數位時鐘

新增加一個Timer、一個Label，在Timer的事件加入下列文字：

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(Time);
end;