Ошибка: Access violation at Address

[Аватар]

А проект можете заархивировать и вместе с базой выложить сюда? По другому в этом не разберешься

[Marina)]

Заархивировала свой проект, как вы просили. Надеюсь,вы мне поможете..

[Аватар]

Я исправил UNIT2.PAS его и отправляю

[Marina)]

спасибо вам большое!!! Выручили.=)
А вы можете мне сказать, в чем заключалась моя ошибка?
а то я unit2 просто заменила, не глянув.)

[Аватар]

procedure TForm2.N10Click(Sender: TObject);
begin
Application.CreateForm(TForm9,Form9);
if (sender = N10) then
begin
Form9.GroupBox1.Caption:='Номер читателя';
form2.ADOTable1.Filtered:=False;
Form2.ADOTable1.Filter:='№chitatel=';
end;
if (Form9.ShowModal=mrOk) then
begin
form2.ADOTable1.Filter:=form2.ADOTable1.Filter+QuotedStr(Form9.Edit1.Text);
form2.ADOTable1.Filtered:=true;
end
else form2.ADOTable1.Filter:='';
Form9.Free;
end;

procedure TForm2.N11Click(Sender: TObject);
begin
Application.CreateForm(TForm9,Form9);
if (sender = N11) then
begin
Form9.GroupBox1.Caption:='Введите фамилию';
form2.ADOTable1.Filtered:=False;
Form2.ADOTable1.Filter:='Familiya='
end;
if (Form9.ShowModal=mrOk) then
begin
form2.ADOTable1.Filter:=form2.ADOTable1.Filter+QuotedStr(Form9.Edit1.Text);
form2.ADOTable1.Filtered:=true;
end
else form2.ADOTable1.Filter:='';
Form9.Free;
end;

procedure TForm2.N12Click(Sender: TObject);
begin
Application.CreateForm(TForm9,Form9);
if (sender = N12) then
begin
Form9.GroupBox1.Caption:='Введите адрес';
form2.ADOTable1.Filtered:=False;
Form2.ADOTable1.Filter:='Adress=';
end;
if (Form9.ShowModal=mrOk) then
begin
form2.ADOTable1.Filter:=form2.ADOTable1.Filter+QuotedStr(Form9.Edit1.Text);
form2.ADOTable1.Filtered:=true;
end
else form2.ADOTable1.Filter:='';
Form9.Free;
end;

[Marina)]

спасибо огромное!=)