Modulo.Consulta.Active := FALSE;
Modulo.Consulta.SQL.Clear;
Modulo.Consulta.SQL.Add('SELECT Top 10 Cod_Producto as Código, Desc_Producto as Descripción, ROUND((Precio+(Precio*(Porcentaje_Ganancia/100))+(Precio+(Precio*(Porcentaje_Ganancia/100)))*0.21),3) as Precio, Cant_Existente as Stock FROM Productos');
Modulo.Consulta.SQL.Add('WHERE Cod_Producto LIKE ' + QuotedStr('%' + Edit_Buscar.Text + '%'));
Modulo.Consulta.Active := TRUE;