type
  TValueRelationship = -1..1;

function GetTimeDelta(BeginDate, EndDate: TDateTime;
  var Years, Months, Days: DWORD): TValueRelationship;
var
  Date1, Date2, TempDate : TDate;
begin
  Result := CompareDate(BeginDate, EndDate);
  if Result > 0 then
  begin
    Date1 := EndDate;
    Date2 := BeginDate;
  end
  else 
  begin
    Date1 := BeginDate;
    Date2 := EndDate;
  end;

  Years := 0;
  repeat
      Inc(Years);
      TempDate := Date1;
      Date1 := IncYear(Date1);
  until CompareDate(Date1, Date2) > 0;
  Dec(Years);
  Date1 := TempDate;

  Months := 0;
  repeat
      Inc(Months);
      TempDate := Date1;
      Date1 := IncMonth(Date1);
  until CompareDate(Date1, Date2) > 0;
  Dec(Months);
  Date1 := TempDate;

  Days := 0;
  repeat
      Inc(Days);
      TempDate := Date1;
      Date1 := IncDay(Date1);
  until CompareDate(Date1, Date2) > 0;
  Dec(Days);
end;

Function GetExpires(A, B)
Dim Y, M, D
Dim C

  If A >= B Then
    GetExpires = "Истек"
	Exit Function
  End If
  
  C = A
  Y = 0
  Do While Year(C) < Year(B)
    C = DateAdd("yyyy", 1, C)
    Y = Y + 1
  Loop 
  
  C = A
  M = 0
  Do While Month(C) < Month(B)
    C = DateAdd("m", 1, C)
    M = M + 1
  Loop 
  
  C = A
  D = 0
  Do While Day(C) < Day(B)
    C = DateAdd("d", 1, C)
    D = D + 1
  Loop

  
  GetExpires = Y & " г. " & M & " м. " & D & " д. " 
End Function