Поиск по базе данных

with ADOQuery1 do
       begin
         Close;
         SQL.Clear;
         SQL.Add('SELECT Название');
         SQL.Add('FROM АкустическиеГитары');
         SQL.Add('WHERE [Год выпуска]="'+yearvalue+'"');
         SQL.Add('UNION');
         SQL.Add('SELECT Название');
         SQL.Add('FROM Электрогитары');
         SQL.Add('WHERE [Год выпуска]="'+yearvalue+'"');
         SQL.Add('UNION');
         SQL.Add('SELECT Название');
         SQL.Add('FROM БасГитары');
         SQL.Add('WHERE [Год выпуска]="'+yearvalue+'"');
         Open;
       end;

yearvalue:=StrToInt(LabeledEdit1.Text);

with ADOQuery1 do
       begin
         Close;
         SQL.Clear;
         SQL.Add('SELECT Название');
         SQL.Add('FROM АкустическиеГитары');
         SQL.Add('WHERE [Год выпуска]=:yearvalue');
         SQL.Add('UNION');
         SQL.Add('SELECT Название');
         SQL.Add('FROM Электрогитары');
         SQL.Add('WHERE [Год выпуска]=:yearvalue');
         SQL.Add('UNION');
         SQL.Add('SELECT Название');
         SQL.Add('FROM БасГитары');
         SQL.Add('WHERE [Год выпуска]=:yearvalue');
         Open;
 
         Parameters.ParamByName('yearvalue').AsInteger:=yearvalue;
       end;

Parameters.ParamByName('yearvalue').AsInteger:=yearvalue;

Parameters.ParamByName('yearvalue').Value:=yearvalue;

Parameters.ParamByName('yearvalue').Value:=yearvalue;

procedure TForm1.Edit1Change(Sender: TObject);
var help1, help2:string;
begin
help1:='%'+Form1.Edit1.Text+'%';
help2:=QuotedStr(help1);
with Form1.ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('SELECT * FROM DBTel WHERE [Ячейка] like'+help2+' or [Номенклатурный номер] like'+help2+' or [Название материала] like'+help2+' or [Стелаж] like'+help2+' order by Fam');
Open;
end;
end;