Ответьте мне пожалуйста!

[Хост]

Создан был 4-ех буквенный кроссворд. Run-Run и ... ошибка, указывающая на if (listbox1.Selected[i3]=false) and

(listbox1.Items[i3][2]=listbox1.Items[i2][3]) then
begin
listbox1.Selected[i3]:=true;
ins(edit10,edit11,edit12,edit13,listbox1.Items[i3]);
i4:=-1;
while (f=false) and
(i4<listbox1.Items.Count-1) do
begin inc(i4);
if (listbox1.Selected[i4]=false) and
(listbox1.Items[i4][1]=listbox1.Items[i1][4])
and (listbox1.Items[i4][3]=listbox1.Items[i3][4]) then
begin
listbox1.Selected[i4]:=true;
ins(edit4,edit17,edit13,edit20,listbox1.Items[i4]);
f:=true;
end;
end;

[Пепел Феникса]

нужен весь код процедуры

[Хост]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
{Edit1: TEdit; Edit2: TEdit;}
Edit3: TEdit; Edit4: TEdit;
{Edit5: TEdit; }
Edit11: TEdit; Edit12: TEdit;
Edit13: TEdit; Edit16: TEdit;
Edit17: TEdit;
Edit19: TEdit; Edit20: TEdit; ListBox1: TListBox;
Edit28: TEdit; Button1: TButton;
Button2: TButton; Button3: TButton;
Button4: TButton;
Edit1: TEdit;
Edit2: TEdit;
{ Edit6: TEdit; }
{ Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;}
Edit10: TEdit;
{Edit22: TEdit;
Edit23: TEdit;
Edit27: TEdit;}
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.Items.Add(edit28.text);
edit28.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
i:=listbox1.ItemIndex;
listbox1.Items.Delete(i);
end;

procedure ins(e1,e2,e3,e4:tedit; s:string);
begin
e1.Text:=s[1];
e2.Text:=s[2];
e3.Text:=s[3];
e4.Text:=s[4];
end;

procedure TForm1.Button1Click(Sender: TObject);
var f:boolean;
i,i1,i2,i3, i4:integer;
begin
f:=false;
i1:=-1;
for i:=0 to listbox1.Items.Count-1 do listbox1.Selected[i]:=false;
while (f=false) and (i1<listbox1.Items.Count-1) do
begin
Edit1.Text:=''; Edit2.Text:='';
Edit3.Text:='';Edit4.Text:='';
Edit10.Text:='';
Edit11.Text:='';Edit12.Text:='';
Edit13.Text:='';
Edit16.Text:='';Edit17.Text:='';
Edit19.Text:='';Edit20.Text:='';
Edit28.Text:='';
inc(i1);
if ListBox1.Selected[i1]=false then
begin
ListBox1.Selected[i1]:=true;
ins(edit1,edit2,edit3,edit4,listBox 1.items[i1]);
i2:=-1;
while (f=false) and
(i2<listbox1.Items.Count-1) do
begin inc(i2);
if (listbox1.Selected[i2]=false) and
(listbox1.Items[i2][1]=listbox1.Items[i1][2]) then
begin
listbox1.Selected[i2]:=true;
ins(edit2,edit16,edit11,edit19,list box1.Items[i2]);
i3:=-1;
while (f=false) and
(i3<listbox1.Items.Count-1) do
begin inc(i3);
if (listbox1.Selected[i3]=false) and
(listbox1.Items[i3][2]=listbox1.Items[i2][3]) then
begin
listbox1.Selected[i3]:=true;
ins(edit10,edit11,edit12,edit13,lis tbox1.Items[i3]);
i4:=-1;
while (f=false) and
(i4<listbox1.Items.Count-1) do
begin inc(i4);
if (listbox1.Selected[i4]=false) and
(listbox1.Items[i4][1]=listbox1.Items[i1][4])
and (listbox1.Items[i4][3]=listbox1.Items[i3][4]) then
begin
listbox1.Selected[i4]:=true;
ins(edit4,edit17,edit13,edit20,list box1.Items[i4]);
f:=true;
end;
end;
if (f=false) then
listbox1.Selected[i4]:=false;
end;
end;
if (f=false) then
listbox1.Selected[i3]:=false;
end;
end;
if (f=false) then
listbox1.Selected[i2]:=false;
end;
end;
if (f=false) then
listbox1.Selected[i1]:=false;
end;

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

end.

[Пепел Феникса]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
    Button1: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit28: TEdit;
    ListBox1: TListBox;
    Edit1: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.Items.Add(edit28.text);
edit28.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
i:=listbox1.ItemIndex;
listbox1.Items.Delete(i);
end;

procedure ins(e1,e2,e3,e4:tedit; s:string);
begin
e1.Text:=s[1];
e2.Text:=s[2];
e3.Text:=s[3];
e4.Text:=s[4];
end;

procedure TForm1.Button1Click(Sender: TObject);
var f:boolean;
i,i1,i2,i3, i4:integer;
begin
f:=false;
i1:=-1;
for i:=0 to listbox1.Items.Count-1 do listbox1.Selected[i]:=false;
while (f=false) and (i1<listbox1.Items.Count-1) do
begin
Edit1.Text:=''; Edit2.Text:='';
Edit3.Text:='';Edit4.Text:='';
Edit10.Text:='';
Edit11.Text:='';Edit12.Text:='';
Edit13.Text:='';
Edit16.Text:='';Edit17.Text:='';
Edit19.Text:='';Edit20.Text:='';
Edit28.Text:='';
inc(i1);
if ListBox1.Selected[i1]=false then
begin
ListBox1.Selected[i1]:=true;
ins(edit1,edit2,edit3,edit4,listBox1.items[i1]);
i2:=-1;
while (f=false) and
(i2<listbox1.Items.Count-1) do
begin inc(i2);
if (listbox1.Selected[i2]=false) and
(listbox1.Items[i2][1]=listbox1.Items[i1][2]) then
begin
listbox1.Selected[i2]:=true;
ins(edit2,edit16,edit11,edit19,listbox1.Items[i2]);
i3:=-1;
end;
while (f=false) and
(i3<listbox1.Items.Count-1) do
begin inc(i3);
if (listbox1.Selected[i3]=false) and
(listbox1.Items[i3][2]=listbox1.Items[i2][3]) then
begin
listbox1.Selected[i3]:=true;
ins(edit10,edit11,edit12,edit13,listbox1.Items[i3]);
i4:=-1;
while (f=false) and
(i4<listbox1.Items.Count-1) do
begin inc(i4);
if (listbox1.Selected[i4]=false) and
(listbox1.Items[i4][1]=listbox1.Items[i1][4])
and (listbox1.Items[i4][3]=listbox1.Items[i3][4]) then
begin
listbox1.Selected[i4]:=true;
ins(edit4,edit17,edit13,edit20,listbox1.Items[i4]);
f:=true;
end;
end;
if (f=false) then
listbox1.Selected[i4]:=false;
end;
end;
if (f=false) then
listbox1.Selected[i3]:=false;
end;
end;
if (f=false) then
listbox1.Selected[i2]:=false;
end;
if (f=false) then
listbox1.Selected[i1]:=false;
end;

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

end.

пришлось проект пересоздавать
вот так запускается, но я не знаю правильно ли работает(цели мне не ведомы)