Restar fechas(días, meses, años)

[hugo_Junior]

tengo que restar dos fechas, una de cuando ingreso y otra cuando se fué para poder sacar la antigüledad, este es el código:
calcular.click
var
dd4,a4,d4,m4:interger;
begin
dd4:=round(f_egreso_1.DateTime - f_ingreso_1.DateTime);
a4:=dd4 div 365;
d4:= dd4 mod 365;
m4:= d4 div 30;
d4:= d4-(m4*30);
total4.Text:= (inttostr(d4)+'días '+inttostr(m4)+'meses '+inttostr(a4)+'años');
end;

El problema es que si resto por ejemplo: 17/04/98 - 17/04/08 tendría que devolverme 0 días 0 meses 10 años y lo que me devuelve son 3 días 0 meses 10 años.
Si bien lo que me devuelve es exacto por la diferencia de días por los meses bisiesto y eso, no me sirve.
Desde ya muchas gracias.