Delphi - Validar Referencia Catastral

Hola. Tengo que validar una referencia catastral introducida por un Tedit.
Por lo que he leido las referencias catastrales tienen 20 caracteres y los 2 ultimos son los digitos de control.
Imagino que la validacion tendrá que ver con esos digitos de control.
Tiene que haber alguna fórmula que calcule esos digitos de control pero no la encuentro.
Si alguien sabe de alguna funcion en Delphi que lo calcuque y valide así las referencias sería genial.
Gracias a todos.

Alguien sabe si la formula para validar las referencias catastrales de las fincas urbanas y rusticas es la misma?. Me refiero al calculo del digito de control.

en la estatal el algoritmo es el mismo

Me sirvió perfectamente. Gracias por tu ayuda y un saludo.