Calculo de Años

[__cadetill]

se supone que

ModeloDatos.TblMueble.FieldValues['Añocompra']

es de tipo DateTime, no?
Pues entonces has de hacer lo que te proponia en el mensaje anterior

var
  D, M, AIni, AFin : Word;
begin
  DecodeDate(AFin, M, D, Date);
  DecodeDate(AIni, M, D, ModeloDatos.TblMueble.FieldValues['Añocompra']);
  ShowMessage('Diferencia de años : ' + IntToStr(AFin - AIni));
end;