HELP~解释一行代码解决方法

HELP~解释一行代码
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:string;
i:integer;

begin
 b:=memo1.Lines.Text;
 for i:=1 to strlen(pchar(b)) do
a:=a+ inttostr(ord(copy((b),i,1)[1]));
 memo2.Lines.Text:=a;
end;
这是ASC的转码，红色的那句我是查资料写的所以不是很懂。请帮忙解释

[解决办法]
copy((b),i,1):把b这个字符串从第i个字符处开始往后读1个字符,所以copy((b),i,1)[1]和copy((b),i,1)是一样的
ord(……)就是得到某个字符的ASCII码了，最后把数字转成字符



[解决办法]
a:=a+ inttostr(ord(copy((b),i,1)[1])); 
等介于：
a:=a+inttostr(ord(b[I]));