delphi求日期之间的差距

我想实现一个界面，就是比如今天与2009年5月8号差距几年又几月又几天，如何判断，几天是不大于一个月的，而且也不是那种限定一个月30天或者多少的，我要根据实际来的，程序一打开，就显示，比如今天是2009年10月29号，那打开程序就显示，今天距离2009年5月8号有0年2月24天这样。请问如何实现呢

---

DateUtils单元中有很多函数可用
DaysBetween，两个日期间的天数

---

0年2月24天?你的月份天数如何确定：28，29，30，31？
只能确定还有几天，几分几秒这样的！
使用如下函数：
function DaysBetween(const ANow, AThen: TDateTime): Integer;

---

不能实现过了多少月多少天吗

---

引用

DateUtils单元中有很多函数可用
DaysBetween，两个日期间的天数

-----------------

---

DaysBetween可以看几天
如果实在要知道几个月
那就自己换算一下吧，做倒计时的话好像那就拿目的年减现在的年得到还剩多少年
再那年数*12+目的月-当月就可以了啊。
简单的计算就能实现不一定什么都是函数实现的

---

Delphi(Pascal) code:
procedure TForm1.Button1Click(Sender: TObject);
var
temp,temp1:string;
i,j,year,mon,day:integer;
begin
memo1.Clear;
temp:=formatdatetime('yyyymmdd',datetimepicker1.Date);
temp1:=formatdatetime('yyyymmdd',now());
i:=strtoint(copy(temp,1,4));
j:=strtoint(copy(temp1,1,4));
year:=i-j; //算出多少年
i:=strtoint(copy(temp,5,2));
j:=strtoint(copy(temp1,