Maskedit使用的一个问题(50分)

我在程序中使用的编号是12位数，前8位为用Maskedit输入的日期,后四位为累计数字，
我最初的做法是把Maskedit输入的字符窜转换为日期格式，再用函数formatdate(dd,mm,yyyy),
于是有编号=yyyy+mm+dd+四位数。
在运行过程当中，输入年份>=2000无问题，但当年份<2000时出现问题，比如输入的日期为
99-01-01时，编号却为20990101xxxx。
于是我用了比较麻烦的方法，用decodedate()函数，而后对年份进行判断，运行没问题。
但我总觉得这样很别扭。
想请问一下各位，我最初的做法错在哪里，您有没有简单的解决办法？？？

99变换成1999还是2099，delphi有个全局变量控制。
具体的名称记不起来了，可能定义在sysutils中，你自己查一下。