anchor.diff:          end;
         end;
       end
  -    else if kfh.dwFileVersion = $0400 then
  +    else if kfh.dwFileVersion = VERSION_40 then
         raise EKMXError.Create(EKMX_OldKeyboardFile,
           'The keyboard file is from version 4.0 and is not supported in this version of Keyman.')
  -    else if kfh.dwFileVersion > $0600 then
  +    else if (kfh.dwFileVersion > VERSION_60) and (HIWORD(kfh.dwFileVersion) = 0) then
       begin
         if GetSystemStore(Memory, TSS_COMPILEDVERSION, ver) then
         begin
  
positive.code: 
        ki.MnemonicLayout := GetSystemStore(Memory, TSS_MNEMONIC, smnemonic) and (smnemonic <> '0');
  
        {GetSystemStore(Memory, TSS_LANGUAGE, lang);
        if kfh.dwFileVersion = $0600
          then ki.LanguageID := StrToIntDef(lang, 0)
          else ki.LanguageID := 0;}
        ki.KeyboardID := kfh.KeyboardID;
        ki.DefaultHotKey := kfh.HotKey;
        ki.LogicalLayout := (kfh.dwFlags and KF_LOGICALLAYOUT) = KF_LOGICALLAYOUT;
  
negative.code:       ki.Bitmap := nil;
        if FReturnBitmap then
        begin
          if (kfh.dwBitmapOffset > 0) and (kfh.dwBitmapSize > 0) then
          begin
            mem.Position := kfh.dwBitmapOffset;
  