[nikotan]

ребят, немного поиск всё таки не так работает, я благодарен за то что сделали, но надо улучшить:
на данный момент ввожу в edit1(поиск) буквы и выдаёт все названия где есть такая последовательность, всё замечательно, но ввожу в edit2(кабинет) число и вот он всё что есть в этом кабинете, а надо только то что прописано в edit1(поиск)
ещё плохо что если очистишь появятся все записи в таблице, а номер кабинета ведь указан в edit2(кабинет)

Код:

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

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

и ещё вопрос почему очищаешь edit1(поиск) выдаёт всю таблицу, а очищаешь edit2(кабинет) таблица пустая?
сами попробуйте , фаил прицепил "Debug.rar"