int main()
{
    uint16_t cw = get8087CW();
    std::cout << "CW: " << cw << "\n";  // 639
    TResult error;
    std::unique_ptr<CFramework> frame = CFramework::New(
        error,
        p "ukraine.ctm1",
        p "standard.ctstyle",
        p "DejaVuSans.ttf",
        800,
        600
    );
    cw = get8087CW();
    std::cout << "CW: " << cw << "\n";  // 639
    if (error == 0) {
        const TBitmap* bmp = frame->MapBitmap(error);
        std::cout << bmp->Width();
    }
}

extern "C" __declspec(dllexport)  int32_t  __stdcall test();

int32_t test() {
    uint16_t cw = get8087CW();  // 639
    TResult error;
    std::unique_ptr<CFramework> frame = CFramework::New(
        error,
        p "ukraine.ctm1",
        p "standard.ctstyle",
        p "DejaVuSans.ttf",
        800,
        600
    );
    cw = get8087CW();  // 639
    if (error == 0) {
        const TBitmap* bmp = frame->MapBitmap(error);
    }
    return error;
}

function test(): Integer; stdcall; external 'test.dll' name 'test';

procedure TForm1.FormCreate(Sender: TObject);
var
  LCW: Word;
begin
  LCW := Get8087CW;  // 639
  try
    test;
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
  LCW := Get8087CW;  // 639
end;

if (error == 0) {
    unsigned int oldVal = _control87(0, 0);
    unsigned int newVal = _control87(EM_INVALID, EM_INVALID);
    __try {
        const TBitmap* bmp = frame->MapBitmap(error);
    }
    __finally {
        if (oldVal != newVal)
            _control87(oldVal, oldVal);
    }
}