Согласен с Дмитрием Мыльниковым, хочу только добавить, что явно данные из Query1 показываются в каком-то гриде или еще как-то видны пользователю, поэтому в ходе выполнения этой процедуры он будет видеть движение курсора по гриду. Поэтому перед первым вызовом следует вызвать DisableControls, а после последнего - EnableControls, это же может служить и флагом, т.е. примерно так

procedure TDataModule1.Query1AfterScroll(DataSet: TDataSet);
var a:tboonmark;
begin
if not Query1.ControlsDisabled() then begin
Query1.DisableControls();
try
a:= Query1.getbookmark;
Query1.first;
while not Query1.eof do begin
.....
Query1.next;
end;
Query1.gotobookmark(a);
Query1.freebookmark(a);
finally Query1.EnableControls(); end;
end;
end