Delphi,konvertovanje dana u dae,mesece,godine

Kako da izracunam razliku dana,a da je prikazem u godinama,mesecima i danima...Jel ima neko tu funkciju

Nasao sam ovaj kod ali ne pokazuje pravilno.......


procedure BrojDana(d1, d2: TDate; var Dan, Mes, God: Integer);
var
i, Raz: Integer;
Dan1, Dan2, Mes1, Mes2, God1, God2: Word;
begin
Dan := 0;
Mes := 0;
God := 0;
DecodeDate(d1, God1, Mes1, Dan1);
while d1 < d2 do
begin
Inc(God1);
d1 := EncodeDate(God1, Mes1, Dan1);
if d1 <= d2 then
Inc(God)
else begin
Dec(God1);
d1 := EncodeDate(God1, Mes1, Dan1);
Break;
end;
end;
while d1 < d2 do
begin
Inc(Mes1);
if Mes1 = 13 then
begin
Inc(God1);
Dec(Mes1);
end;
d1 := EncodeDate(God1, Mes1, Dan1);
if d1 <= d2 then
Inc(Mes)
else begin
Dec(Mes1);
d1 := EncodeDate(God1, Mes1, Dan1);
Break;
end;
end;
while d1 < d2 do
begin
d1 := d1 + 1;
if d1 <= d2 then
Inc(Dan)
end;
end;


procedure TfrmNoviunos.BitBtn1Click(Sender: TObject);
var
Dan, Mes, God: Integer;
begin
BrojDana(datetimepicker1.Date,datetimepicker2.Date ,Dan, Mes, God);
Showmessage(IntToStr(Dan) + '.' + IntToStr(Mes) + '.' + IntToStr(God));
end;
end.

Pronasao sam kod za ovo sto sam napisao,ako nekome treba,neka se javi....Pozdrav