Gracias por tu ayuda, para futuro y refencia de otros segun
Embacadero genera un error si se cierra el Query, como debe quedar y que a mi me funciono segun el foro es:
Código SQL
[-]
qTpPd.DisableControls;
BM := qTpPd.GetBookmark;
qTpPd.Refresh;
qTpPd.Bookmark := BM;
qTpPd.EnableControls;