fix for delphi xe3