¡Hola David!
Para eliminar todos los objetos de la propiedad Fields de un conjunto de datos (TQuery, TClientDataSet, TADOTable, etc.), puedes usar una instrucción como esta:
Código Delphi
[-]ConjuntoDatos.Fields.Clear;
Espero te sirva, no dejes de comentarnos.
Al González.
P.D. Por otro lado, tuviste un error de dedo en lo de "Quere1" (no sé si al decir "no funciona" te referías a que no compilaba).