Auf den ersten Blick fehlt mir hier das GotoBookmark
Das stand sowohl in der Prozedur selbst, als auch später im AfterRefresh. Da beides nicht den gewünschten Effekt erzielt hat, steht das jetzt in der Timer-Prozedur.
Code:
procedure TfrmMain.TimerRefreshTimer(Sender: TObject);
begin
TimerRefresh.Enabled:= False;
AdsQuePosition.GotoBookmark(Book);
end;