[nikotan]

как тогда правильней сделать запрос?
мой код

Код:

procedure TForm1.Edit1Change(Sender: TObject);
 begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
AdoQuery1.Sql.Text := 'select * from organized where Title like :Param1 and classroom like :Param2';
 AdoQuery1.Parameters.ParamValues['Param1']:= '%' + Form1.Edit1.Text + '%';
AdoQuery1.Parameters.ParamValues['Param2'] := '%' + Form1.Edit2.Text + '%';
AdoQuery1.Open;
end;



procedure TForm1.Edit2Change(Sender: TObject);
var help1, help2: string;
begin
//Edit1.Text:='';
   help1:=Form1.Edit2.Text;
        help2:=Quotedstr(help1);
        With Form1.ADOQuery1 do
        begin
          close;
          sql.Clear;
          sql.Add('select * from organized where classroom like'+help2);
          open;
        end;
   end;