Метод Квайна-Мак Класки

[The Catalyst]

помогите пожалуйста реализовать этот метод в delphi 7.
у меня есть исходник. но он не работает коректно, да что там коректно, он вобще не работает. помогите найти ошибку ибо сам не могу.
Вот исходник

function srav(s1,s2:string) : integer;
var
i, k1, k2, kop : integer;
sl1,sl2:string;
begin
kop:=0;
k1 := length(s1);
k2 := length(s2);

if k1 = k2 then
begin
for i:=1 to k1 do
begin
sl1 := copy(s1,i,1);
sl2 := copy(s2,i,1);
if sl2 = sl1 then
else kop := kop + 1;
end;
result := kop;
end else result := 2;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
i, ii, j, gde :integer;
s1, s2, sl1, sl2, dob1, dob2 :string;
begin
for i:=0 to memo1.Lines.Count - 1 do
if memo1.Lines[i] = '' then
else memo2.Lines.Add(memo1.Lines[i]);
end;
begin
memo2.Text := memo1.Text;
repeat
memo1.Text := memo2.Text;
gde := 0;
ii := 1;
for i:=0 to memo1.Lines.Count - 1 do
begin
s1 := memo1.Lines[i];
for j:=0 to memo1.Lines.Count - 1 do
begin
if i <> j then
begin
s2 := memo1.Lines[j];
if srav(s1,s2) = 1 then
begin
{----------------------}
repeat
sl1 := copy(s1,ii,1);
sl2 := copy(s2,ii,1);
if sl2 = sl1 then
else gde := ii;
ii := ii + 1;
until gde > 0;
ii := 1;
dob1 := copy(s1,1,gde - 1) + '-' + copy(s1,gde + 1, length(s1) - gde);
dob2 := copy(s2,1,gde - 1) + '-' + copy(s2,gde + 1, length(s2) - gde);

memo2.Lines[i] := dob1;

memo2.Lines[j] := dob2;
gde := 0;
{----------------------}
end;
end;
end;
end;

until memo1.Text = memo2.Text;

end;

а проьлемма собственно в том, что когда я его запускаю, то мне выбивает ошибку: "Debugger Exception Notification"
Project project1.exe rised exception class EAccessViolotion with message 'Access violation at address 0045069 in module 'Project1.exe'. Read of address 000002FC'. Process stoped. Use step or Run to Continue.
и две кнопки OK Help.
при нажатии OK выделяет в исходнике строку
form1.Memo2.Text:=form1.Memo1.Text;
это в обработчике кнопки 7 строка начиная с Begin.
нажимаю F9 выбивает Error runtime error 216 at 00403472
ПОМОГИТЕ КТО ЧЕМ МОЖЕТ ПОЖАЛУЙСТА

[Mad_Cat]

проект выложи

[The Catalyst]

я на этом форуме недавно, подскажите как

[Mad_Cat]

Расширенный режим -->прикрепить файл(скрепка)

[The Catalyst]

скинул всю папку