Calculo diferencia años entre dos fechas

[jafera]

Buenos dias.

Hace ya un tiempo que no aparecía por aquí pues tenía un poco olvidada la programación, pero ahora me ha surgido la necesidad de actualizar una base de datos y en ella debo controlar la diferencia en años entre dos fechas.
El proceso que hago es el siguiente:

Código Delphi [-]
procedure TF_Arbitres.Calcul_Anyo;
var
  Anio:TDatetime;
  a,m,d,a1,m1,d1,a2,m2,d2: Word;
begin
        Anio := Now;
        DecodeDate(Anio, a,m,d);
        Anio := F_ModulDades.ArbitresDATA_1_LLIC.Value;
        DecodeDate(Anio, a1,m1,d1);
        if F_ModulDades.ArbitresDATA_BAIXA.Value <> 0 then
        begin
                DecodeDate(F_ModulDades.ArbitresDATA_BAIXA.Value, a2,m2,d2);
                Anyo:= a2-a1;
        end
        else
        Anyo:= a-a1;
end;

Este proceso funciona bien pero me da un resultado "erróneo o no deseado".
Si tengo como fecha inicio 1/1/2000 y fecha fin 31/12/2005, el resultado es 5, pero para mi el resultado debería ser 6 ya que los años pasados son:
2000, 2001, 2002, 2003, 2004 y 2005.

Como podria controlar esto?
Una forma "fácil" aunque no se si muy correcta seria sumar 1 al valor Anyo

Anyo:=(a-a1)+1

No se si se podría hacer calculando el numero de días o meses y luego dividir....

Como siempre gracias por adelantado por leerme.

Saludos

Josep