Pull in current implementation from BitSpaceEngine
Works with Delphi XE