请大家帮着分析分析：

procedure TForm1.Button1Click(Sender: TObject);
var
  f1,f2:file of char;
  p:array[0..20] of char;
  i,l:integer;
  c:char;
begin
jdt.Position:=0;
assignfile(f1,edit1.text);
assignfile(f2,edit2.text);
if edit1.text=edit2.Text then
  if messagedlg('你输入的源文件名和目标文件名相同! 为了不破坏源文件,本程序将创建一个名为new.jm的文件作为目标文件,继续吗?',mtconfirmation,[mbyes,mbno],0)=mryes
    then
    begin
    assignfile(f2,'new.jm');
    edit2.text:='new.jm';
    end
    else exit;
reset(f1);
rewrite(f2);
l:=strtoint(edit3.text);
jdt.max:=filesize(f1);
《《for i:=0 to 5 do
  begin
  p:=chr(l mod 10);
  l:=l div 10;
  end;
label4.Caption:='正在运算...';
jdt.left:=56;
jdt.width:=241;
sleep(10);
while not eof(f1) do
  begin
  p[6]:=chr(trunc(ord(p[0])+ord(p[1]))+ord(p[2]) xor ((ord(p[3])-abs(ord(p[4])-ord(p[5])) mod 255)));
  read(f1,c);
  c:=chr(ord(c) xor ord(p[6]));
  write(f2,c);
  for i:=0 to 5 do p:=p[i+1];
  jdt.position:=jdt.position+1;
  end;
  closefile(f1);
  closefile(f2);》》
label4.caption:='已完成';end;
procedure TForm1.Button2Click(Sender: TObject);
begin
opendialog1.Execute;
edit1.text:=opendialog1.filename;
edit2.text:=opendialog1.filename;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  application.Icon:=form1.Icon;
showmessage('欢迎使用 小小加密解密程序     作者:yayx');
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage('再见!');
end;end.
请大家帮我看一下《》部分的代码是什么意思，谢谢~！~！