Esto colócalo justo antes de abrir la consulta, te ayudará a ver dónde está el error, aunque yo apostaría por una concatenación no deseada:
Código Delphi
[-]ShowMessage(Query_Producto.Sql.Text);
Sql.Add(Campos +'From Producto ');
Sql.Add(Campos +' From Producto ');
Un Saludo.