Converts lowercase to uppercase.

When writing a paid software, I used a function that converts the lower-case amount to the upper-case amount. I found a function written on the Internet using PowerBuilder, which is huge in 40 or 50 rows, later, I wrote a function using Delphi and completed it with just a few lines of code:
Function tform1.xtodd (I: Real): string;
Const
D = '0, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4 ';
VaR
M, K: string;
J: integer;
Begin
K: = '';
M: = floattostr (INT (I * 100 ));
For J: = length (m) downto 1 do
K: = K + d [(strtoint (M [length (M)-J + 1]) + 1) * 2-1] +
D [(strtoint (M [length (M)-J + 1]) + 1) * 2] + d [(10 + J) * 2-1] + d [(10 + J) * 2];
Xtodd: = K;
End;

Call:
Procedure tform1.button1click (Sender: tobject );
VaR
Sum: real;
Begin
Sum: = 12.34;
Showmessage ('renminbi capital: '+ xtodd (SUM ));
End;