Почему CreateComObject меняет FPU control word?

Subj. В этом есть какой-то смысл (который я не понимаю). Или это тупо бага?

https://forums.embarcadero.com/thread.jspa?threadID=118791 ?

Не объясняет.

Maxim Rusov,

тупо бага в реализации некоторых объектов, особо умных товарищей, закрывай как в обёртке к DefWinProc

Там (упрощенно) такой код:

    try
      Set8087CW( Default8087CW or $08);
      OleCheck(CoCreateInstance(...));
    finally
      Reset8087CW;
    end;

Выглядит, как будто хотели восстановить состояние FPU control word после вызова CoCreateInstance но забыли что Set8087CW меняет Default8087CW

Я запатчил так:

    OldValue := Default8087CW;
    try
      Set8087CW( Default8087CW or $08);
      OleCheck(CoCreateInstance(...));
    finally
      Set8087CW( OldValue );
    end;