Ошибка синтаксиса (пропущен оператор) в выражении запроса в Дельфи

procedure TForm2.BitBtn4Click(Sender: TObject); // Кнопка поиск, после нажатия на которую и выскакивает ошибка
var NomReg: Array of string;
    i,h,Counts: integer;
    Find, Result:string;
 
begin
    SetLength(NomReg, 10000);
    Counts:=1;
    ADODataSet1.Active:=true;
    ADODataSet1.First;
    for i := 0 to ADODataSet1.RecordCount -1 do
        begin
           NomReg[i]:=ADODataSet1.FieldValues['Nom_reg'];
           ADODataSet1.Next;
           Inc(Counts);
         end;
 
     Find:=Trim(Edit5.Text);
 
     for h := 0 to Counts do
        begin
           if Find = NomReg[h] then
              begin
                with Form2.ADOQuery_Baza do
                  begin
                    Close;
                    SQL.Clear;
                    SQL.Add('select * from Inf_Lift_full where Nom_reg like=' + Find ); // По этой строке и выбивает ошибку!!!
                    Open;
                  end;
 
                 Label8.Caption:='Есть попадание!';
              end
           else  Label8.Caption:='Лифт с таким рег.номером не обслуживается!';
        end;
 
end;
 
procedure TForm2.Edit1Change(Sender: TObject);  // старый поиск, который работает, по нему вопросов не было
  var help1, help2: string;                                     // оставил его на всякий... может будет понятнее
begin
  help1:='%'+ Form2.Edit1.Text+ '%';
  help2:= QuotedStr(help1);
  with Form2.ADOQuery_Baza do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from Inf_Lift_full where Nom_reg like' +help2+ ' or Adres_full like' +help2 );
      Open;
    end;
end;

help1:=Form2.Edit1.Text;

procedure TForm2.BitBtn4Click(Sender: TObject);
begin
  with Form2.ADOQuery_Baza do                                           // переделанный новый
     begin
     Close;
     SQL.Clear;
     SQL.Add('select * from Inf_Lift_full where Nom_reg like ' + Edit5.Text + ';');   // исправленная проблемная строка
     Open;
     end;
end;
 
procedure TForm2.Edit1Change(Sender: TObject);   // старый, работающий поиск
  var help1, help2: string;
begin
  help1:='%'+ Form2.Edit1.Text+ '%';
  help2:= QuotedStr(help1);
  with Form2.ADOQuery_Baza do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from Inf_Lift_full where Nom_reg like' +help2+ ' or Adres_full like' +help2 );
      Open;
    end;
end;

SQL.Add('select * from Inf_Lift_full where Nom_reg like ' + Trim(Edit5.Text) + ';');

 help2:= QuotedStr(help1);