Hola
Perdon, esta rapidez cuesta.
hay otro error.
Código Delphi
[-]
procedure TForm7.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Add('select * from merca ');
adoquery1.SQL.Add(' where descripcion like :cosa');
adoquery1.Open;
adoquery1.Parameters.ParamByName('cosa').Value:=edit1.Text;
end;
Saludos