[[enecumene]]

Código Delphi [-]
procedure TForm6.Button2Click(Sender: TObject);
begin

     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select * from merca ');
     adoquery1.SQL.Add(' where descripcion like '+Quotedstr(Edit1.text)+';
     adoquery1.Open;
end;