[[Caral]]

Hola
Y asi?

Código Delphi [-]
procedure TForm7.Button1Click(Sender: TObject);

begin
     adoquery1.Close;
     adoquery1.SQL.Add('select * from merca ');
     adoquery1.Open;
     adoquery1.SQL.Add(' where descripcion like :cosa');
     adoquery1.Parameters.ParamByName('cosa').Value:=edit1.Text;
end;

Saludos