Hola, solo añadir una cosita, cuando se utiliza Add, debes limpiar antes lo que tenias en tu propiedad Sql o sino asignar directo tu consulta a Sql.Text.
Código Delphi
[-]
...........
Query1.Sql.Clear;
Query1.SQL.Add('..........');
............
Saluditos