我在网上找到 小写变大写的 一个函数，，哪位高手能把大写变小写给我 ( 积分: 10 )

。。
function TForm1.NumToChar( n:Real): wideString; //可以到万亿,并可随便扩大
const cNum:WideString='零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分';
cCha:array[0..1, 0..11]of string =
(( '零仟','零佰','零拾','零零零','零零',
'零亿','零万','零元','亿万','零角','零分','零整'),
( '零','零','零','零','零','亿','万','元','亿','零','整','整'));
var i :Integer;
sNum :WideString;
begin
result := '';
sNum := FormatFloat('0',n*100);
for i := 1 to Length(sNum) do
result := result + cNum[ord(sNum)-47] + cNum[26-Length(sNum)+i];
for i:= 0 to 11 do //去掉多余的零
result := StringReplace(result, cCha[0,i], cCha[1,i], [rfReplaceAll]);
end;因为我是刚来的没有那么多分数。见凉。。但是我更希望大家能够互相帮助，不要因为一点点的虚荣毁 了大家之间的未建立的友谊，我可不希望 因为这些个无所谓的东西把我们伟大的友谊给扼杀在摇篮之中