Verschlüsselporgramm!

[maximi]

So ich ha jetzt mal nen eigenes verschlüsselprog. nur es funzt noch nicht!!!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  i,i2: Integer;
begin
  // Kodieren


  s:=Edit1.Text;
  for i:=1 to length(s) do
  begin
    for i2 := 0 to 25 do
    begin
      if(s[i] = buchstaben[i2]) then
      begin
        s[i]:=char(nummer_buchstaben[i2] Xor Ord(s[i]));
        break;
      end;
      if(i2 = 25) then
        s[i]:=char(7 Xor Ord(s[i]))
    end;
  end;


  Edit2.text := s;

end;

procedure TForm1.Button2Click(Sender: TObject);
var  s: String;
  i,i2: Integer;
begin


  s:=Edit1.Text;
  for i:=1 to length(s) do
  begin
    for i2 := 0 to 25 do
    begin
      if(s[i] = buchstaben[i2]) then
      begin
        s[i]:=char(nummer_buchstaben[i2] Xor Ord(s[i]));
        break;
      end;
      if(i2 = 25) then
        s[i]:=char(7 Xor Ord(s[i]))
    end;
  end;


  Edit2.text := s;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 buchstaben[0] := 'a';  buchstaben[1] := 'b';  buchstaben[2] := 'c';
  buchstaben[3] := 'd';  buchstaben[4] := 'e';  buchstaben[5] := 'f';
  buchstaben[6] := 'g';  buchstaben[7] := 'h';  buchstaben[8] := 'i';
  buchstaben[9] := 'j';  buchstaben[10] := 'k';  buchstaben[11] := 'l';
  buchstaben[12] := 'm';  buchstaben[13] := 'n';  buchstaben[14] := 'o';
  buchstaben[15] := 'p';  buchstaben[16] := 'q';  buchstaben[17] := 'r';
  buchstaben[18] := 's';  buchstaben[19] := 't';  buchstaben[20] := 'u';
  buchstaben[21] := 'v';  buchstaben[22] := 'w';  buchstaben[23] := 'x';
  buchstaben[24] := 'y';  buchstaben[25] := 'z';

  nummer_buchstaben[0] := 9;
  nummer_buchstaben[1] := 20;
  nummer_buchstaben[2] := 11;
  nummer_buchstaben[3] := 14;
  nummer_buchstaben[4] := 2;
  nummer_buchstaben[5] := 28;
  nummer_buchstaben[6] := 5;
  nummer_buchstaben[7] := 19;
  nummer_buchstaben[8] := 10;
  nummer_buchstaben[9] := 17;
  nummer_buchstaben[10] := 23;
  nummer_buchstaben[11] := 4;
  nummer_buchstaben[12] := 12;
  nummer_buchstaben[13] := 13;
  nummer_buchstaben[14] := 3;
  nummer_buchstaben[15] := 16;
  nummer_buchstaben[16] := 29;
  nummer_buchstaben[17] := 30;
  nummer_buchstaben[18] := 26;
  nummer_buchstaben[19] := 21;
  nummer_buchstaben[20] := 15;
  nummer_buchstaben[21] := 27;
  nummer_buchstaben[22] := 8;
  nummer_buchstaben[23] := 6;
  nummer_buchstaben[24] := 18;
  nummer_buchstaben[25] := 25;
end;

Kann mir jemand helfen??