el codigo completo

[Investment]

 
  if edit1.text<>'' then
   query1.SQL.text:='SELECT * FROM proveedores WHERE Proveedor like ' + QuotedStr(Edit1.Text + '%')
 else
   query1.SQL.text:='SELECT * FROM proveedores';
 
  Query1.Open;

Yo creo que falta el open de la query...