アルファベット（小文字）、数字、,（カンマ）、-（ハイフン）、；（セミコロン）と終端文字で
４０進数としてみなし、これを１０進数にする。

function ini2int(stri : string) : integer;
var
        k : integer;
        ch : char;
begin
       result := 0 ;
       for k := 1 to 2 do begin
           ch := stri[k];

           if stri[k]='' then begin
                result := result *40 ;
                break;
           end;
           
           case ord(ch) of

           44     :  result := result * 40+(ord(ch)-44+27) ;   //,
           45     :  result := result * 40+(ord(ch)-45+28) ;   //-
           48..57 :  result := result * 40+(ord(ch)-48+29+1) ; //0-9
           58     :  result := result * 40+(ord(ch)-58+29) ;   //:
           97..122:  result := result * 40+(ord(ch)-97+1) ;    //a-z

           else begin
              result := 0;
              break;
                end;
           end;

       end;
end;