Поблемы с написаем системы шифрования Вижинера

[qwertyk]

Пишу программу шифровальщик, на основе шифрования Вижинера.
Написал код для создания самой таблицы Вижинера и немного для кнопки 'зашифровать'. Вот мой код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo3: TMemo;
    memo2: TMemo;
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  alf: array[1..66] of char = ('À','Á','Â','Ã','Ä','Å','¨','Æ','Ç','È','É','Ê','Ë','Ì','Í','Î','Ï','Ð','Ñ','Ò','Ó','Ô','Õ','Ö','×','Ø','Ù','Ü','Û','Ú','Ý','Þ','ß','à','á','â','ã','ä','å','¸','æ','ç','è','é','ê','ë','ì','í','î','ï','ð','ñ','ò','ó','ô','õ','ö','÷','ø','ù','ü','û','ú','ý','þ','ÿ');
  tab: array[1..66,1..66] of Char;
implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i,j,n,k:integer;
begin
  n:=0;
  For i:=1 to 66 do
  begin
    k:=n+1;
    for j:=1 to 66 do
    begin
      if k=67 then k:=0;
      tab[i,j]:=alf[k];
      k:=k+1;
    end;
    n:=n+1;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i, j, k, stroka, stolbec, slovo, key:integer; s,kl:char; l:boolean;
begin
  memo2.Clear;
  k:=0;
  j:=-1;
  //key:=memo3.GetTextLen;
  //slovo:=memo1.GetTextLen;
  for i:=0 to memo1.Lines.Count-1 do
  begin
    l:=true;
    k:=0;
    J:=J+1;
    s:=memo1.Lines[i][j];
    kl:=memo3.Lines[i][j];
    if (s<>#13) and (s<>#10) and (s<#192) then
    begin
      showmessage('Òåêñò ââîäèòü áåç ïðîáåëîâ è çíàêîâ ïðåïèíàíèÿ');
      memo1.Clear;
      memo2.Clear;
      memo3.Clear;
      break;
    end
    else
    while l do
    if s<>alf[k] then
    k:=k+1
    else
    begin
      stroka:=k;
      k:=0;
      l:=false;
    end;
    l:=true;
    if kl<#224 then
    begin
        showmessage('Êëþ÷ ââîäèòü ìàëåíüêèìè áóêâàìè');
        memo1.Clear;
        memo2.Clear;
        memo3.Clear;
        break;
    end
    else
    while l do
    if kl<>alf[k] then
    k:=k+1
    else
    begin
      stolbec:=k;
      k:=0;
      l:=false;
    end;
    memo2.Lines[i];
    memo2.Lines.Text:=memo2.Lines.Text+tab[stroka, stolbec];
  end;
  end;
end.

Естественно он не шифрует, в чем ошибка не знаю (я слабоват при работе с полями). Если не сложно напишите что не так. Знаю в интернете есть исходники, но хотелось бы самому разобраться!

[qwertyk]

Тема закрыта сам разобрался!