[osmuar_exp]

Código Delphi [-]
with consulta do
 begin
    close;
    sql.text:='select nombre from tabla where nombre like   '+QuotedStr('%'+edit1.Text);
    open;
  end;