procedure TForm1.Button1Click(Sender: TObject);
var

 i:integer;
 s,sresult:string[100];
 sp:word; //16位无符号类型
 begin
 s:=edit2.Text;
 sp:=strtoint(edit1.text);
 sresult[0]:=s[0];
 for i:=1 to length(s)  do  //计算s的长
 begin
 sresult[i]:=char(byte(s[i]) xor (sp shr 8));//右移
 sp:=(byte(sresult[i])+sp)*c1 +c2;
 end;
 edit2.Text:= sresult;
 end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
 s,sresult:string[100];
 sp:word; //16位无符号类型
 begin
 s:=edit2.Text;
 sp:=strtoint(edit1.text);
 sresult[0]:=s[0];
 for i:=1 to length(s)  do  //计算s的长
 begin
 sresult[i]:=char(byte(s[i]) xor (sp shr 8));//右移
 sp:=(byte(s[i])+sp)*c1 +c2;
 end;
 edit2.Text:= sresult;
 end;

lz说的啥意思啊？看不懂代码？