Rysik, наверное ваши вычисления проводятся в цикле и когда вот это условие вывода не выполняется
----------------------------
if ( (screenX ‹ windowWidth) and (screenY ‹ windowHeight) and (screenX › 0) and (screenY › 0)) then
begin
_onEvent(onScreenX, screenX);
_onEvent(onScreenY, screenY);
_onEvent(onMeter, vd);
_onEvent(onVis);
end else Exit;
------------------------------
вычисления продолжаются до переполнения вашего Single.
Попробуйте обозначить этот момент (в коде жирным шрифтом)