Запомнить меня на этом копьютере
Переполнение в арифметической операции.
Результат предшествующей арифметической операция вне диапазона LongInt (-2147483648..2147483647).
Исправьте выражение или используйте переменные вещественного типа вместо целочисленного.