Поиск по БД, Delphi

procedure TForm3.Edit1Change(Sender: TObject);
var help1, help2: string;
begin
help1:='%'+Form3.Edit1.Text+'%';
help2:= QuotedStr(help1);
with Form3.ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('Select*from Заказы where [Код_продукции] like'+help2+'');
open;
end;
 
end;

SQL.Add('Select * from [Заказы] where [Код_продукции] like '+help2);

with ADOQuery1 do
begin
close;
SQL.Text := 'Select * from Заказы where [Код_продукции] = ' + Edit1.Text; 
open;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
SQL.Text := 'Select * from Çàêàçû where [Êîä_ïðîäóêöèè] = ' + Edit1.Text;
open;
end;
 
end;

ADOQuery1.SQL.Text := Format('Select * from Заказы where [Код_продукции] = "%s"', [Edit1.Text]);

ADOQuery1.SQL.Text := Format('Select * from Заказы where [Код_продукции] LIKE "%s%%"', [Edit1.Text]);