Delphi 7 显示一周日期和对应星期问题

我想 Delphi 7做到这个效果，应该怎样做

追问：
这样到了下个星期会不会自动对应上星期几？？
 

答案：
这个是使用了第三方皮肤控件的效果。推荐使用VCLSkin控件来美化程序界面，优点是：不影响我们已写好的编译代码，只需要在主窗口上加入VCLSKIN控件并适当设置，程序的所有窗口及控件，甚至是程序所调用的系统对话窗口(MessageBox、OpenFileDialog等）及控件，都全部进行美化。
如果使用VclSkin,上图的星期、日期为TLabel, 确定提交为TButton, 方框为TCheckBox,横向的大框为TPanel。至于日期的计算，要用到DayOfWeek(Now()),取得当天是星期几，然后用Now()+1得到明天的日期，用Now()-1得到昨天的日期....直到本周的所有日期

上一个：我用delphi写程序，数据库的字符串处理问题
下一个：求将delphi源代码转换成易语言.感谢回答!