Здравствуйте, Alexander G, Вы писали:

AG>Здравствуйте, lastik160, Вы писали:

L>>Может что-то с параметрами не так... В сети находил примеры, там реализация такая же.

AG>Может, попробовать на время вызова отключить FPU исключения?
AG>Set8087CW($133f);

Спасибо за отклик.

procedure Set8087CW(NewCW: Word);
Sets the FPU control word.

On 32-bit Windows: This control word controls the precision of floating-point calculations, the rounding mode, and whether certain floating-point operations trigger exceptions.
On 64-bit Windows: This control word does not control floating-point operations, because the SSE register is used for floating point in 64-bit mode, instead of the FPU (floating-point unit).

У меня приложение 64-разрядное.
Воспользовался функцией function SetExceptionMask(const Mask: TArithmeticExceptionMask): TArithmeticExceptionMask
Все заработало.