begin
  for I := 1 to Length(ANumber) do
  begin
    if ANumber[I] in ['0','1','2','3','4','5','6','7','8','9','.'] then
      sNumber := sNumber + ANumber[I];
  end;
  Money := StrToFloat(sNumber);
  rTemp := ABS(Money);
  Words[0] := '零'; Words[1] := '壹';
  Words[2] := '貳'; Words[3] := '叁';
  Words[4] := '肆'; Words[5] := '伍';
  Words[6] := '陸'; Words[7] := '柒';
  Words[8] := '捌'; Words[9] := '玖';
  Units[0] := '元'; Units[1] := '拾';
  Units[2] := '佰'; Units[3] := '仟';
  Units[4] := '萬(wàn)'; Units[5] := '拾';
  Units[6] := '佰'; Units[7] := '仟';
  iMoney := Trunc(rTemp);
  fMoney := Round((rTemp - iMoney) * 100);
  Jiao := fMoney div 10;
  Fen := fMoney mod 10;
  if iMoney >= 100000000 then
  begin
    Result := '數(shù)都數(shù)不清的錢(qián)';
    Exit;
  end;
  Result := '';
  i := 0;
  while iMoney <> 0 do
  begin
    Digits[i] := iMoney mod 10;
    iMoney := iMoney div 10;
    Inc(i);
  end;
  Dec(i);
  while i >= 0 do
  begin
    if Digits[i] <> 0 then
    begin
      Result := Result + Words[Digits[i]] + Units[i]
    end
    else
    begin
      if i mod 4 <> 0 then
      begin
        if Digits[i-1] <> 0 then Result := Result + Words[Digits[i]];
      end
      else
      begin
        Result := Result + Units[i];
      end
    end;
    Dec(i);
  end;
  if Jiao <> 0 then Result := Result + Words[Jiao] + '角'
  else if (Fen <> 0) and (Result <> '') then Result := Result + '零';
  if Fen <> 0 then Result := Result + Words[Fen] + '分';
  if Result = '' then Result := '零元零角零分';
  if (Pos('分', Result) = 0) and (Pos('角', Result) = 0) then
    Result := Result + '整';
  if Money<0 then
    Result := '負(fù)'+Result;
end;

function GetHzPy(const AHzStr: string): string;
const
  ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077),
              (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2594, 2786), (9999, 0000),
              (2787, 3105), (3106, 3211), (3212, 3471), (3472, 3634), (3635, 3722), (3723, 3729),
              (3730, 3857), (3858, 4026), (4027, 4085), (4086, 4389), (4390, 4557), (9999, 0000),
              (9999, 0000), (4558, 4683), (4684, 4924), (4925, 5248), (5249, 5589));
var
  i, j, HzOrd: Integer;
begin
  i := 1;
  while i <= Length(AHzStr) do
  begin
    if (AHzStr[i] >= #160) and (AHzStr[i + 1] >= #160) then
    begin
      HzOrd := (Ord(AHzStr[i]) - 160) * 100 + Ord(AHzStr[i + 1]) - 160;
      for j := 0 to 25 do
      begin
        if (HzOrd >= ChinaCode[j][0]) and (HzOrd <= ChinaCode[j][1]) then
        begin
          Result := Result + Char(Byte('A') + j);
          Break;
        end;
      end;
      Inc(i);
    end
    else
      Result := Result + AHzStr[i];
    Inc(i);
  end;
end;

function GetHzBiHua(chnstr:string):integer;
const
  BiHuaTable= #10#7#10#10#8#10#9#11#17#14#13#5#13#10#12#15+
              #10#6#10#9#12#8#10#10#8#8#10#5#10#14#16#9+
              #12#12#15#15#7#10#5#5#7#10#2#9#4#8#12#13+
              #7#10#7#21#10#8#5#9#6#13#8#8#9#13#12#10+
              #13#7#10#10#8#8#7#8#7#19#5#4#8#6#9#10+
              #14#14#9#12#15#10#15#12#12#8#9#5#15#10#16#13+
              #9#12#8#8#8#7#15#10#13#19#8#13#12#8#5#12+
              #9#4#9#10#7#8#12#12#10#8#8#5#11#11#11#9+
              #9#18#9#12#14#4#13#10#8#14#13#14#6#10#9#4+
              #7#13#6#11#14#5#13#16#17#16#9#18#5#12#8#9+
              #9#8#4#16#16#17#12#9#11#15#8#19#15#7#15#11+
              #12#16#13#10#13#7#6#9#5#8#9#9#10#6#9#11+
              #15#8#10#8#12#9#13#10#14#7#8#11#11#14#12#8+
              #7#10#2#10#7#11#4#5#7#19#10#8#17#11#12#7+
              #3#7#13#15#8#11#11#14#16#8#10#9#11#11#7#7+
              #10#4#7#17#16#16#15#11#9#8#12#8#5#9#7#19+
              #12#3#9#9#9#14#12#14#7#9#8#8#10#10#12#11+
              #11#12#11#13#11#6#11#19#8#11#6#9#11#4#11#7+
              #2#12#8#11#10#12#7#9#12#15#15#11#7#8#4#7+
              #15#12#7#15#10#6#7#6#11#7#7#7#12#8#15#10+
              #9#16#6#7#8#12#12#15#8#8#10#10#10#6#13#9+
              #11#6#7#6#6#10#8#8#4#7#10#5#9#6#6#6+
              #11#8#8#13#12#14#13#13#13#4#11#14#4#10#7#5+
              #16#12#18#12#13#12#9#13#10#12#24#13#13#5#12#3+
              #9#13#6#11#12#7#9#12#15#7#6#6#7#8#11#13+
              #8#9#13#15#10#11#7#21#18#11#11#9#14#14#13#13+
              #10#7#6#8#12#6#15#12#7#5#4#5#11#11#15#14+
              #9#19#16#12#14#11#13#10#13#14#11#14#7#6#3#14+
              #15#12#11#10#13#12#6#12#14#5#3#7#4#12#17#9+
              #9#5#9#11#9#11#9#10#8#4#8#10#11#9#5#12+
              #7#11#11#8#11#11#6#9#10#9#10#2#10#17#10#7+
              #11#6#8#15#11#12#11#15#11#8#19#6#12#12#17#14+
              #4#12#7#14#8#10#11#7#10#14#14#7#8#6#12#11+
              #9#7#10#12#16#11#13#13#9#8#16#9#5#7#7#8+
              #11#12#11#13#13#5#16#10#2#11#6#8#10#12#10#14+
              #15#8#11#13#2#7#5#7#8#12#13#8#4#6#5#5+
              #12#15#6#9#8#9#7#9#11#7#4#9#7#10#12#10+
              #13#9#12#9#10#11#13#12#7#14#7#9#12#7#14#12+
              #14#9#11#12#11#7#4#5#15#7#19#12#10#7#9#9+
              #12#11#9#6#6#9#13#6#13#11#8#12#11#13#10#12+
              #9#15#6#10#10#4#7#12#11#10#10#6#2#6#5#9+
              #9#2#9#5#9#12#6#4#9#8#9#18#6#12#18#15+
              #8#8#17#3#10#4#7#8#8#5#7#7#7#7#4#8+
              #8#6#7#6#6#7#8#11#8#11#3#8#10#10#7#8+
              #8#8#9#7#11#7#8#4#7#7#12#7#10#8#6#8+
              #12#12#4#9#8#13#10#12#4#9#11#10#5#13#6#8+
              #4#7#7#4#15#8#14#7#8#13#12#9#11#6#9#8+
              #10#11#13#11#5#7#7#11#10#10#8#11#12#8#14#9+
              #11#18#12#9#12#5#8#4#13#6#12#4#7#6#13#8+
              #15#14#8#7#13#9#11#12#3#5#7#9#9#7#10#13+
              #8#11#21#4#6#9#9#7#7#7#12#7#16#10#10#14+
              #10#16#13#15#15#7#10#14#12#4#11#10#8#12#9#12+
              #10#12#9#12#11#3#6#9#10#13#10#7#8#19#10#10+
              #11#3#7#5#10#11#8#10#4#9#3#6#7#9#7#6+
              #9#4#7#8#8#9#8#8#11#12#11#8#14#7#8#8+
              #8#13#5#11#9#7#8#9#10#8#12#8#5#9#14#9+
              #13#8#8#8#12#6#8#9#6#14#11#23#11#20#8#6+
              #3#10#13#8#6#11#5#7#9#6#9#8#9#10#8#13+
              #9#8#12#13#12#12#10#8#8#14#6#9#15#9#10#10+
              #6#10#9#12#15#7#12#7#11#12#8#12#7#16#16#10+
              #7#16#10#11#6#5#5#8#10#17#17#14#11#9#6#10+
              #5#10#8#12#10#11#10#5#8#7#6#11#13#9#8#11+
              #14#14#15#9#15#12#11#9#9#9#10#7#15#16#9#8+
              #9#10#9#11#9#7#5#6#12#9#12#7#9#10#6#8+
              #5#8#13#10#12#9#15#8#15#12#8#8#11#7#4#7+
              #4#7#9#6#12#12#8#6#4#8#13#9#7#11#7#6+
              #8#10#7#12#10#11#10#12#13#11#10#9#4#9#12#11+
              #16#15#17#9#11#12#13#10#13#9#11#6#9#12#17#9+
              #12#6#13#10#15#5#12#11#10#11#6#10#5#6#9#9+
              #9#8#11#13#9#11#17#9#6#4#10#8#12#16#8#11+
              #5#6#11#6#13#15#10#14#6#5#9#16#4#7#10#11+
              #12#6#7#12#13#20#12#3#9#10#6#7#13#6#9#2+
              #10#3#13#7#16#8#6#11#8#11#9#11#11#4#5#9+
              #7#7#7#10#6#14#9#6#8#10#5#9#12#10#5#10+
              #11#15#6#9#8#13#7#10#7#6#11#7#13#10#8#8+
              #6#12#9#11#9#14#12#8#10#13#9#11#11#9#14#13+
              #12#9#4#13#15#6#10#10#9#8#11#12#12#8#15#9+
              #9#10#6#19#12#10#9#6#6#13#8#15#12#17#12#10+
              #6#8#9#9#9#20#12#11#11#8#11#9#7#9#16#9+
              #13#11#14#10#10#5#12#12#11#9#11#12#6#14#7#5+
              #10#8#11#13#14#9#9#13#8#7#17#7#9#10#4#9+
              #9#8#3#12#4#8#4#9#18#10#13#4#13#7#13#10+
              #13#7#10#10#6#7#9#14#8#13#12#16#8#11#14#13+
              #8#4#19#12#11#14#14#12#16#8#10#13#11#10#8#9+
              #12#12#7#5#7#9#3#7#2#10#11#11#5#6#13#8+
              #12#8#17#8#8#10#8#8#11#7#8#9#9#8#14#7+
              #11#4#8#11#15#13#10#5#11#8#10#10#12#10#10#11+
              #8#10#15#23#7#11#10#17#9#6#6#9#7#11#9#6+
              #7#10#9#12#10#9#10#12#8#5#9#4#12#13#8#12+
              #5#12#11#7#9#9#11#14#17#6#7#4#8#6#9#10+
              #15#8#8#9#12#15#14#9#7#9#5#12#7#8#9#10+
              #8#11#9#10#7#7#8#10#4#11#7#3#6#11#9#10+
              #13#8#14#7#12#6#9#9#13#10#7#13#8#7#10#12+
              #6#12#7#10#8#11#7#7#3#11#8#13#12#9#13#11+
              #12#12#12#8#8#10#7#9#6#13#12#8#8#12#14#12+
              #14#11#10#7#13#13#11#9#8#16#12#5#15#14#12#9+
              #16#12#9#13#11#12#10#11#8#10#10#10#7#7#6#8+
              #9#13#10#10#11#5#13#18#16#15#11#17#9#16#6#9+
              #8#12#13#7#9#11#11#15#16#10#10#13#11#7#7#15+
              #5#10#9#6#10#7#5#5#10#4#7#12#8#9#12#5+
              #11#7#8#2#14#10#9#12#10#7#18#13#8#10#8#11+
              #11#12#10#9#8#13#10#11#13#7#7#11#12#12#9#10+
              #15#11#14#7#16#14#5#15#2#14#17#14#10#6#12#10+
              #6#11#12#8#17#16#9#7#20#11#15#10#7#8#9#11+
              #13#13#10#7#11#10#7#10#8#11#5#5#13#11#14#12+
              #13#10#6#15#10#9#4#5#11#8#11#16#11#8#8#7+
              #13#9#12#12#14#8#7#5#11#7#8#11#7#8#12#19+
              #13#21#13#10#11#16#11#8#7#15#7#6#11#8#10#15+
              #12#12#10#12#9#11#13#11#9#10#9#13#7#7#11#11+
              #7#8#6#4#7#7#6#11#17#8#11#13#14#14#13#12+
              #9#9#9#6#11#7#8#9#3#9#14#6#10#6#7#8+
              #6#9#15#14#12#13#14#11#14#14#13#6#9#8#8#6+
              #10#11#8#13#4#5#10#5#8#9#12#14#9#3#8#8+
              #11#14#15#13#7#9#12#14#7#9#9#12#8#12#3#7+
              #5#11#13#17#13#13#11#11#8#11#16#19#17#9#11#8+
              #6#10#8#8#14#11#12#12#10#11#11#7#9#10#12#9+
              #8#11#13#17#9#12#8#7#14#5#5#8#5#11#10#9+
              #8#16#8#11#6#8#13#13#14#19#14#14#16#15#20#8+
              #5#10#15#16#8#13#13#8#11#6#9#8#7#7#8#5+
              #13#14#13#12#14#4#5#13#8#16#10#9#7#9#6#9+
              #7#6#2#5#9#8#9#7#10#22#9#10#9#8#11#8+
              #10#4#14#10#8#16#10#8#5#7#7#10#13#9#13#14+
              #8#6#15#15#11#8#10#14#5#7#10#10#19#11#15#15+
              #10#11#9#8#16#5#8#8#4#7#9#7#10#9#6#7+
              #5#7#9#3#13#9#8#9#17#20#10#10#8#9#8#18+
              #7#11#7#11#9#8#8#8#12#8#11#12#11#12#9#19+
              #15#11#15#9#10#7#9#6#8#10#16#9#7#8#7#9+
              #10#12#8#8#9#11#14#12#10#10#8#7#12#9#10#8+
              #11#15#12#13#12#13#16#16#8#12#11#13#8#9#21#7+
              #8#15#12#9#11#12#10#5#4#12#15#7#20#15#11#4+
              #12#15#14#16#11#14#16#9#13#8#9#13#6#8#8#11+
              #5#8#10#7#9#8#8#11#11#10#14#8#11#10#5#12+
              #4#10#12#11#13#10#6#10#12#10#14#19#18#12#12#10+
              #11#8#2#10#14#9#7#8#12#8#7#11#11#10#6#14+
              #8#6#11#10#6#3#6#7#9#9#16#4#6#7#7#8+
              #5#11#9#9#9#6#8#10#3#6#13#5#12#11#16#10+
              #10#9#15#13#8#15#11#12#4#14#8#7#12#7#14#14+
              #12#7#16#14#14#10#10#17#6#8#5#16#15#12#10#9+
              #10#4#8#5#8#9#9#9#9#10#12#13#7#15#12#13+
              #7#8#9#9#10#10#11#16#12#12#11#8#10#6#12#7+
              #9#5#7#11#7#5#9#8#12#4#11#6#11#8#7#11+
              #8#11#17#15#5#11#23#6#16#9#6#11#10#4#8#4+
              #10#8#16#7#13#14#12#11#12#13#12#16#5#9#22#20+
              #20#20#5#9#7#9#12#10#4#4#2#7#7#6#4#3+
              #7#6#5#4#4#6#9#13#9#16#14#13#10#9#4#12+
              #9#6#9#20#16#17#6#10#8#6#2#15#8#6#15#13+
              #12#7#10#8#10#15#9#11#13#17#13#14#3#8#6#12+
              #10#13#8#12#12#6#12#13#6#10#12#14#10#9#6#8+
              #7#7#13#11#13#12#10#9#8#7#3#7#14#8#5#8+
              #16#17#16#12#6#10#15#14#6#11#12#10#3#8#14#11+
              #10#12#10#6#3#14#4#10#7#8#11#11#11#6#8#11+
              #13#10#13#10#7#6#10#5#8#7#7#11#10#8#9#7+
              #8#11#9#8#13#11#7#5#12#9#4#11#9#11#12#9+
              #5#6#5#9#9#12#8#3#8#2#5#9#7#4#9#9+
              #8#7#5#5#8#9#8#8#6#5#3#5#9#8#9#14+
              #10#8#9#13#16#9#5#8#12#8#4#5#9#9#8#8+
              #6#4#9#6#7#11#11#8#14#11#15#8#11#10#7#13+
              #8#12#11#12#4#12#11#15#16#12#17#13#13#12#13#12+
              #5#8#9#7#6#9#14#11#13#14#10#8#9#14#10#5+
              #5#10#9#17#4#11#10#4#13#12#7#17#9#12#9#11+
              #10#8#12#15#15#9#7#5#5#6#13#6#13#5#7#6+
              #8#3#8#10#8#10#9#7#6#9#12#15#16#14#7#12+
              #9#10#10#12#14#13#13#11#7#8#14#13#14#9#11#11+
              #10#21#13#6#17#12#14#10#6#10#10#13#11#10#14#11+
              #10#12#8#13#5#5#6#12#16#9#17#15#9#8#8#5+
              #10#11#4#8#7#7#13#8#15#13#7#17#13#15#14#10+
              #8#12#10#14#11#5#9#6#13#13#11#12#15#10#16#10+
              #15#11#15#10#11#10#13#10#11#10#9#11#10#5#10#10+
              #18#13#10#13#11#10#15#12#12#15#16#12#7#12#17#11+
              #10#9#8#4#11#13#5#11#9#14#12#9#7#8#11#13+
              #9#10#8#4#7#9#5#6#11#9#9#9#12#10#10#13+
              #17#6#11#7#12#11#10#12#9#12#11#7#5#10#5#7+
              #9#8#10#10#10#11#3#6#8#12#6#11#13#13#13#13+
              #9#7#4#17#8#6#11#10#7#6#8#12#7#8#11#9+
              #9#12#9#9#4#10#9#5#15#9#12#8#10#3#11#7+
              #13#10#11#12#11#8#11#3#12#7#4#3#8#6#8#8+
              #11#7#6#9#20#13#6#4#7#10#7#11#11#4#14#11+
              #7#11#8#6#6#7#7#5#14#8#9#9#12#17#7#12+
              #11#11#15#3#14#12#10#4#9#7#7#14#10#6#13#10+
              #8#9#13#10#12#7#14#8#12#7#7#7#9#4#6#9+
              #9#4#7#11#7#7#4#8#4#10#4#14#6#9#7#5+
              #13#11#8#4#5#10#9#8#14#8#6#11#8#12#15#6+
              #13#10#12#10#7#11#15#3#11#14#11#13#6#12#17#11+
              #10#3#13#12#11#9#7#12#6#8#15#9#7#17#14#13+
              #9#8#9#3#12#10#6#11#13#6#5#14#6#9#8#11+
              #11#7#9#8#13#9#9#8#13#7#13#11#12#9#10#8+