HELP~解释一行代码

Question

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的转码，红色的那句我是查资料写的所以不是很懂。请帮忙解释

Answer 1

inttostr(ord(copy((b),i,1)[1]))
是这句不懂

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

Copy就是从一个字符串中拷贝其中的一段的函数