Delphi中小写数值如何变成大写？

Question

想把小写变成大写，如何实现，比如2-〉贰；10——〉拾；25——〉贰拾伍，这样，声明：不是金额方面的，是纯数字的转换，金额方面不适合要求。

Answer 1

我只知道把大写变成小写，小写字母变成大写
LZ的这个问题有点强悍
不如CASE OF
   .....
    .... 
    .....

Answer 2

必须通过函数实现，delphi本身没有带这样的功能，你到google里找。

Answer 3

好几天不得分了。
我自己写的，只转换正整数，贴出来晾晾，欢迎大家提意见。
procedure TFMoney.Button1Click(Sender: TObject);
const
  d: WideString = '零壹贰叁肆伍陆柒捌玖元拾佰仟万拾佰仟亿';
var
  m: string;
  K: WideString;
  i: Integer;
begin
  K := '';
  m := '123456789';
  for i := Length(m) downto 1 do
    K := string(d[StrToInt(m[i]) + 1]) + string(d[10 + Length(m) - i + 1]) + K;
  Delete(K, Length(K), 1);
  Edit1.Text := K;
end;