求教ASCII码转成10进制,该如何解决

求教ASCII码转成10进制
如
memo1.text= Ascii码串
button1_click
memo2.text:= 10进制数字串
请给个例程谢谢！

[解决办法]
ShowMessage(IntToStr(Ord('A')) + ' ' + Chr(65));//65 A
[解决办法]
for i := 1 to Length(memo1.Text) do
Ord(memo1.Text[i]);