Васко, като гледам какъв си нерегистриран, най вероятно само се хабя да ти пиша, но за пълнота ще допълня Андрю с проверка на валидността на ЕГН-то.
TestStrDigits си я напиши сам (проверява броя и дали са цифри символите в стринга)

{}function EGN_Check(const EGN: string): boolean;

    var

      w: word;

    begin

      Result:=false;

      if TestStrDigits(EGN,10,10) then begin

        w :=  2*StrToInt(EGN[1]) +  4*StrToInt(EGN[2]) + 8*StrToInt(EGN[3]) +

              5*StrToInt(EGN[4]) + 10*StrToInt(EGN[5]) + 9*StrToInt(EGN[6]) +

              7*StrToInt(EGN[7]) +  3*StrToInt(EGN[8]) + 6*StrToInt(EGN[9]);

        Result:=((w mod 11) mod 10)=StrToInt(EGN[10]);

      end;

    end;

Съдържаниет е скрито
Влезте за да го видите