怎样把一串数值转换成真人发音， 把金额读出来?

Step.1 准备发音文件//或者是资源文件
如:'壹.wav','贰.wav',.....'圆.wav','分.wav'Step.2 将数字转换成中文表达
如:19250.45 -->> 壹万玖千贰佰伍拾圆零肆角伍分Step.3 循环播放文件即可
//参考代码
uses mmSystem;
//...
var
  S: WideString;
begin
  S := '壹万玖千贰佰伍拾圆零肆角伍分';
  for I := 1 to Length(S) do
    sndPlaySound(PChar(S[I] + '.wav'), SND_ASYNC);
end;