[nikotan]

странно в edit1 ввожу букву, сразу все строчки в dbgrid пустые

Код:

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'] := Edit1.Text;
AdoQuery1.Parameters.ParamValues['Param2'] := Edit2.Text;
AdoQuery1.Open;
end;

но вот так всё работает

Код:

procedure TForm1.Edit1Change(Sender: TObject);
var help1, help2, help3, help4: string;
     var Param1, Param2: string;
begin
     Edit2.Text:='';
help1:='%'+ Form1.Edit1.Text+'%';
       help2:=Quotedstr(help1);
        help3:=Form1.Edit2.Text;
     help4:=Quotedstr(help3);
       With Form1.ADOQuery1 do
        begin
          close;
        sql.Clear;
         sql.Add('select * from organized where Title like'+help2);
         open;
      end;
      
end;

если у Вас есть время может добьём эту тему?