[Casimiro Noteví]

Código Delphi [-]
 if edit1.text<>'' then
    begin
   Query1.Close;
   query1.SQL.text:='SELECT * FROM proveedores     WHERE  Proveedor like ' + QuotedStr(Edit1.Text + '%');
 end
  else
           query1.SQL.text:='SELECT * FROM proveedores'
    end;
 Query1.Open;