Подстановка данных с бд ошибка

[Paskal1]

Сообщение от Stilet

Ладно без нее:

 ADOQuery1.SQL.Add('SELECT Kod FROM Products WHERE Kod LIKE '+QuotedStr(Trim((Edit1.Text))+'%'));

Снова- Ошибка синтаксиса в запросе

[Paskal1]

Большое спасибо! проблема решена
Вот сам код

procedure TForm2.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  pos2:word;
  s2:string;
begin
           //Подстановка данных
   if Key>47 then
   begin
      Edit1.ClearSelection;
      Pos2:=Length(Edit1.Text);
 
      with ADOQuery1 do
      begin
      ADOQuery1.Active:=False;
      ADOQuery1.SQL.Text:='SELECT Kod FROM Products WHERE Kod LIKE :Kods';
      Parameters.ParamValues['Kods']:=Trim(Edit1.Text)+'%';
 
      ADOQuery1.Active:=true;
 
         if not EOF then
         begin
           if not FieldByName('Kod').IsNull then
           begin
             Edit1.Text:=fieldbyname('Kod').AsString;
             Edit1.SelStart:=Pos2;
             Edit1.SelLength:=length(Edit1.Text)-1;
             beep;
             Edit1.Repaint;
          end
          else
             MessageBeep(0);
         end;
         Close;
      end;
 end;
end;