Пожалуйста найдите ошибку в коде приложения "шифратор"(шифр Гронсфельда)

unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm3 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
implementation
 
{$R *.dfm}
type
  Tfirst = '1' .. '8';
  Tsecond = '1' .. '8';
const
  n = 3;
  function GronsfeldEncipher(toCode, K: string): string;
var i, T, _T: integer;
 s: string;
begin
  for i := 1 to length(toCode) do begin
    _T := ord(toCode[ i ]);
 
    T := (Ord(toCode[ i ])
 
      +
      (Ord(K[(pred(i) mod length(K)) + 1]) - Ord('0'))
 
         );
 
    if T >= 256 then dec(T, 256);
    toCode[ i ] := Chr(T);
  end;
  GronsfeldEncipher := toCode;
end;
 
function GronsfeldDecipher(toDecode, K: string): string;
var i, T: integer;
 s: string;
begin
  for i := 1 to length(toDecode) do begin
    T := (Ord(toDecode[i])
 
      -
      (Ord(K[(pred(i) mod length(K)) + 1]) - Ord('0'))
 
         );
    if T < 0 then Inc(T, 256);
    toDecode[ i ] := Chr(T);
  end;
  GronsfeldDecipher := toDecode;
end;
 
{ применение: }
 
procedure TForm3.Button1Click(Sender: TObject);
var s: string;
begin
s:=GronsfeldEncipher(Edit1.Text);
Edit2.Text:=s;
end;
 
procedure TForm3.Button2Click(Sender: TObject);
var
s:string;
begin
s:=GronsfeldDecipher(Edit2.Text);
Edit1.Text:=s;
end;
end.

function GronsfeldEncipher(toCode, K: string): string;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    RichEdit1: TRichEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
implementation
 
{$R *.dfm}
type
  Tfirst = '1' .. '8';
  Tsecond = '1' .. '8';
const
  n = 3;
  function GronsfeldEncipher(toCode, K: string): string;
var i, T, _T: integer;
 s: string;
begin
  for i := 1 to length(toCode) do begin
    _T := ord(toCode[ i ]);
 
    T := (Ord(toCode[ i ])
 
      +
      (Ord(K[(pred(i) mod length(K)) + 1]) - Ord('0'))
 
         );
 
    if T >= 256 then dec(T, 256);
    toCode[ i ] := Chr(T);
  end;
  GronsfeldEncipher := toCode;
end;
 
function GronsfeldDecipher(toDecode, K: string): string;
var i, T: integer;
 s: string;
begin
  for i := 1 to length(toDecode) do begin
    T := (Ord(toDecode[i])
 
      -
      (Ord(K[(pred(i) mod length(K)) + 1]) - Ord('0'))
 
         );
    if T < 0 then Inc(T, 256);
    toDecode[ i ] := Chr(T);
  end;
  GronsfeldDecipher := toDecode;
end;
 
{ применение: }
 
procedure TForm1.Button1Click(Sender: TObject);
var
 s: string;
begin
if Length(Edit1.Text) > 5 then
 begin
  s:=GronsfeldEncipher(RichEdit1.Text, Edit1.Text);
  RichEdit1.Text:=s;
 end
 else
  ShowMessage('Пароль должен содержать минимум 6 символов');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
 s:string;
begin
if Length(Edit1.Text) > 5 then
 begin
  s:=GronsfeldDecipher(RichEdit1.Text, Edit1.Text);
  RichEdit1.Text:=s;
 end
 else
  ShowMessage('Пароль должен содержать минимум 6 символов');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption:= 'Кодировать';
  Button2.Caption:= 'Декодировать';
  Label1.Caption:= 'Пароль';
  with Edit1 do
  begin
   NumbersOnly:= True;
   MaxLength:= 10;
  end;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
 s: string;
begin
if Length(Edit1.Text) > 5 then
 begin
  s:=GronsfeldEncipher(RichEdit1.Text, Edit1.Text);
  RichEdit1.Text:=s;
  Clipboard.SetTextBuf(PChar(RichEdit1.Text)); //копируем в буфер обмена
 end
 else
  ShowMessage('Пароль должен содержать минимум 6 символов');
end;