Delphi Chinese digit to Arabic digit

Project use , I can't find it on the Internet , I wrote a

type
  TChnnum=record
    rate:integer;
    str:string;
  end;
  const chndigit:array[0..9]of Char=(' zero ',' One ',' Two ',' 3、 ... and ',' Four ',' 5、 ... and ',' 6、 ... and ',' 7、 ... and ',' 8、 ... and ',' Nine ');

function TTabbedwithNavigationForm.ChnToNum (s:string):Integer;
var chnnums:array[0..3] of TChnnum ;
i,j:integer;
a,b,x:integer;
str:string ;
begin
 chnnums[0].rate:=10;chnnums[0].str:=' Ten ';
 chnnums[1].rate:=100;chnnums[1].str:=' hundred ';
 chnnums[2].rate:=1000;chnnums[2].str:=' thousand ';
 chnnums[3].rate:=10000;chnnums[3].str:=' ten thousand ';
// Align words from left
str:=s;
x:=0;
i:=0;
if str[1] =' Ten ' then begin
x:=10;
inc(i);
end;


while i<s.Length do
begin
a:=0;b:=1;
inc(i);
  for j:=Low(chndigit) to High(chndigit) do
  if str[i] =chndigit[j] then begin
     if j=0 then inc(i)
     else begin
      a:=j;
      break;
     end;
  end  ;
  if (a=0 ) and (i=1) then a:=1;
  if i< s.Length then begin
  inc(i);
    for j:= Low(chnnums) to High(chnnums) do
      if str[i]= chnnums[j].str  then begin
       b:= chnnums[j].rate;
       break;
      end;
   end;
  x:=x+a*b;
end;
  Result:=x;


end;