Несколько ошибок разом. Касательно памяти.

procedure TForm1.Button4Click(Sender: TObject);
var
f:string;
begin
f:=form1.Edit1.text;
with form1.adoQuery1 do begin
form1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.Active :=false;
ADOQuery1.SQL.LoadFromFile('select * From " guns " WHERE +item+ like "' +f+ '%"');
ADOQuery1.Active :=true;
open;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
i:=form1.RadioGroup1.ItemIndex;
case i of
0 : s:='Автоматическое';
1 : s:='Полуавтоматическое';
2 : s:='Неавтоматическое';
3 : s:='Аксессуары';
4 : s:='Комплектующие';
end;
with form1.adoQuery1 do begin
form1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.Active :=false;
ADOQuery1.SQL.LoadFromFile('select * From " guns " WHERE +type+ like "' +s+ '%"');
ADOQuery1.Active :=true;
open;
end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
if form3.Edit2.Text='993' then
begin;
form3.close;
form6.show;
end;
if form3.Edit2.Text<>'993' then form7.show;
end;

procedure TForm11.Button1Click(Sender: TObject);
begin
  if (form11.Edit1.Text='vansant') and (form11.Edit2.Text='993') then
begin;
form11.close;
form10.show;
end;
if (form11.Edit1.Text<>'vansant') and (form11.Edit2.Text<>'993') then form7.show;
end;

ADOQuery1.SQL.LoadFromFile('select * From " guns " WHERE +item+ like "' +f+ '%"');

procedure TForm6.Button1Click(Sender: TObject);
var
find:string[12];
begin
find:=form6.Edit1.Text;
form6.ADOTable1.Filter:=find;
form6.Panel1.Visible:=true;
end;

Ну не люблю я их