[Delphi] TDateTime

Problema este urmatoarea:Trebuie de creat o Functie cu doi parametri formali de tip TDateTime care sa intoarca un String ce contine perioada dinte primul parametru si al doilea, exprimata in ani,luni,zile.Function Period( DateInc,DateSfr:TDateTime):String;De Exemplu : pentru DateInc=23.05.2006 si DateSfr=23.10.2008 functiatrebuie sa intoarca '2 ani 5 luni 0 zile'.Macar careva idei dati.