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