B-0 added compatibility with Delphi XE4