[ContraVeneno]

Código Delphi [-]
  ValorFecha:=FechaFin-FechaIni;
  Dias:=Trunc(ValorFecha);
  //Meses:=Trunc((ValorFecha)/30);
  Horas:=Trunc(Frac(ValorFecha)*24);
  Minutos:=Trunc((Frac(Frac(ValorFecha)*24))*60);
  //Segundos:=Trunc((Frac((Frac(Frac(ValorFecha)*24))*60))*60);
  CalculaTiempo:=inttostr(Dias)+' Días, '+inttostr(Horas)+' Horas, '+inttostr(Minutos)+' Min.';

O la más fácil sería utilizar las funciones "MonthsBetween" y "DaysBetween"