[[ElDioni]]

este es el codigo que tengo en el change
no me funciona nada, primero se ven los datos de la tabla y cuando escribes algo el grid se queda en blanco no me realiza la busqueda

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