哪位能帮小弟我翻译下啊万分感激啊

哪位大虾能帮我翻译下啊，万分感激啊！
procedure   TForm1.BitBtn1Click(Sender:   TObject);
var
    i:   integer;
    sum:   byte;
    str:   string;
begin
    if   Comm1.PortOpen   then
    begin
        sum   :=   0;
        str   :=   '$PGRMIX ';
        for   i   :=   2   to   length(str)   do
        begin
            sum   :=   sum   xor   byte(str[i]);
        end;

        str   :=   str+   '* '   +   inttohex(sum,   2)   +   #13#10;
        Comm1.Output   :=   str;
        sum   :=   0;
        str   :=   '$PGRMCX ';
        for   i   :=   2   to   length(str)   do
        begin
            sum   :=   sum   xor   byte(str[i]);
        end;
        str   :=   str+   '* '   +   inttohex(sum,   2)   +   #13#10;
        Comm1.Output   :=   str;

        sum   :=   0;
        str   :=   '$PGRMC1X ';
        for   i   :=   2   to   length(str)   do
        begin
            sum   :=   sum   xor   byte(str[i]);
        end;
        str   :=   str+   '* '   +   inttohex(sum,   2)   +   #13#10;
        Comm1.Output   :=   str;

        sum   :=   0;
        str   :=   '$PGRMO,GPALM,1 ';
        for   i   :=   2   to   length(str)   do
        begin
            sum   :=   sum   xor   byte(str[i]);
        end;
        str   :=   str+   '* '   +   inttohex(sum,   2)   +   #13#10;
        Comm1.Output   :=   str;
    end;
end;

[解决办法]
第一次循环是从第2个字符开始，就是P

str := str+ '* ' + inttohex(sum, 2) + #13#10;//这句什么意思
待发送字符 + '* ' + 效验码（转成16进制） + 换行符