声明：const SecsPerDay = 86400;

描述：MinsPerDay常量给出一天中秒的数量（24*60*60＝86400）。

begin
ShowMessage('Number of minutes in a week = '+IntToStr(MinsPerDay*7));
ShowMessage('Number of seconds in a week = '+IntToStr(SecsPerDay*7));
end;

程序运行结果：

Number of minutes in a week = 10080

Number of seconds in a week = 604800