
A mellékelt példaprogram megnyitása előtt az AdoJel.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
A komponens Number tulajdonságában kel megadnunk magát az adóazonosító jelet. Miután a property értékét beállítottuk, az IsValid property értéke jelzi, hogy a megadott adóazonosító jel valós-e.
Az adóazonosító jel egy 10 jegyű számsorozat. Tartalmaz egy ellenőrző logikát, amely a következő. Az első kilenc számjegy értékét összeadjuk, úgy, hogy közben az adott számot megszorozzuk azzal a számmal, ahányadik a sorban. Az adóazonosító jel utolsó számjegyét úgy kapjuk meg, hogy az összeget osztjuk 11-el, majd vesszük a maradékot, ez lesz a 10. számjegy.
Például, vegyük a 8888888888 adóazonosító jelet.
Az első 9 szám összege: 1*8+2*8+3*8+4*8+5*8+6*8+7*8+8*8+9*8=360.
Az utolsó jegy: a 360/11 egész értékű osztás maradéka, azaz 8.
Ezt algoritmussal felírva:
n:=0;
for i:=1 to 9 do
n:=n+i*StrToInt(FNumber[i]);
nl:=n mod 11;
if nl=10 then
nl:=0;
if nl=StrToInt(FNumber[10]) then
FIsValid:=True;