restar fechas

[hugo_Junior]

A ver si me explico un poco mejor con éste ejemplo:
var
dd4,a4,d4,m4:integer;

begin
{f_ingreso_4,f_egreso_4(datetimePicker)}
if datos.antiguedad.State in [dsedit, dsinsert]then
datos.AntiguedadF_egreso_4.Value:=f_egreso_4.DateTime;
dd4:=round(f_egreso_4.DateTime - f_ingreso_4.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;
{en el total4 está el error y necesito que sea exacto}