TurboPowern OnGuard создать файл лицензии с модификатором машины

Question

Я использую TurboPower onGuard для лицензирования, и есть возможность указать и сгенерировать машинные ключи для проверки лицензии. С помощью следующего кода я создаю модификатор машины на основе machineID

const
    Ckey :TKey = ($56,$1B,$B0,$48,$2D,$AF,$F4,$E5,$30,$6C,$E5,$3B,$A7,$8E,$1A,$14);

procedure TForm1.FormCreate(Sender: TObject);
var
  InfoSet : TEsMachineInfoSet;
  MachineID : Longint;
begin
  { initialize the machine information set }
  InfoSet := [midUser, midSystem, midNetwork, midDrives];
  { create the machine ID and display in hex }
  try
  MachineID := CreateMachineID(InfoSet);
  Edit1.Text := '$' + BufferToHex(MachineID, SizeOf(MachineID));
  except on E:Exception do
   ShowMessage(E.Message);
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
   modifier :LongInt;
   key :TKey;
   releasecode,unlockcode :TCode;
   inexpirydate: TdateTime;
begin
  modifier := GenerateMachineModifierPrim ;
  ApplyModifierToKeyPrim(Modifier, CKey, SizeOf(CKey));

  //HexToBuffer(Ckey, key, SizeOf(TKey));
  InitRegCode(Ckey, edit1.Text, inExpiryDate, releaseCode);
  Edit2.text :=  BufferToHex(unlockCode, SizeOf(releaseCode));
end;    

С другой стороны, для проверки серийного номера и связанного кода я использую следующий код на стороне клиента для проверки приложения, я размещаю компонент SerialNumberCode для его реализации.

 Ckey :TKey = ($56,$1B,$B0,$48,$2D,$AF,$F4,$E5,$30,$6C,$E5,$3B,$A7,$8E,$1A,$14);

procedure TForm1.OgSerialNumberCode1GetKey(Sender: TObject; var Key: TKey);
begin
  Key := Ckey;
end;

procedure TForm1.OgSerialNumberCode1GetModifier(Sender: TObject;
  var Value: LongInt);
begin
 Value := GenerateMachineModifierPrim;

end;

function TForm1.GetSNData(var S: string): integer;
var
  TC  : TCode;
  SNC : string;
  modifier :LOngInt;
begin
  try
    modifier := GenerateMachineModifierPrim;
    ApplyModifierToKeyPrim(Modifier, CKey, SizeOf(CKey));

    IniSNVal := StrToInt(InputBox('Serial number', 'Enter serial Value ', '12345678'));
    SNC :=  (InputBox('release code', 'Enter code ', ''));
    {Check that Release Code was entered correctly}
    HexToBuffer(SNC, TC, SizeOf(TCode));
    if not (IsSerialNumberCodeValid(CKey, TC)) then begin
      S := 'Release code not entered correctly';
      Result := mrCancel;
    end else begin
      IniFile := TIniFile.Create(TheDir + 'test.INI');
      try
        IniFile.WriteInteger('Codes', 'SN', IniSNVal);
        IniFile.WriteString('Codes', 'SNCode', SNC);
      finally
        IniFile.Free;
      end;
    end;
  finally
  end;

end;

procedure TForm1.OgSerialNumberCode1GetCode(Sender: TObject; var Code: TCode);
var
  S1  : string;
  L   : integer;
begin
     if not (FileExists(TheDir + 'test.INI')) then
    Exit;

  {open Ini File}
  IniFile := TIniFile.Create(TheDir + 'test.INI');
  try
    {try to read release code}
    S1 := IniFile.ReadString('Codes', 'SNCode', '');
    IniSNVal := IniFile.ReadInteger('Codes', 'SN', 0);

    {convert retrieved string to a code}
    HexToBuffer(S1, Code, SizeOf(Code));
  finally
    IniFile.Free;
  end;

end;

procedure TForm1.OgSerialNumberCode1Checked(Sender: TObject; Status: TCodeStatus);
var
  S,
  C1,
  C2  : string;
  TC  : TCode;
  LI  : longint;
begin
  case Status of
    ogValidCode   : begin
                      {check if retrieved Serial Number matches Code}
                      LI := OgSerialNumberCode1.GetValue;

                      if (LI <> IniSNVal) then begin
                        Status := ogInvalidCode;
                        S := 'The serial number has been changed';
                      end else begin
                          ShowMessage('Serial #: ' + IntToStr(IniSNVal));
                        Exit;
                      end;
                    end;

    ogInvalidCode : begin
                      {if INI file doesn't exist, presume this is first run}
                      if not (FileExists(TheDir + 'test.INI')) then
                      begin
                        if not (GetSNData(S) = mrCancel) then begin
                          {Check the SN/ReleaseCode}
                          OgSerialNumberCode1.CheckCode(True);
                          {must Exit since line above began a recursive call}
                          Exit;
                        end;
                      end else
                        S := 'Invalid Code';
                    end;

    ogCodeExpired : S := 'Evaluation period expired';
  end;

  ShowMessage(S);
  Application.Terminate;    
end;

Но на стороне клиента машина никогда не принимает подтверждение и выдает код выпуска, введенный неправильно. Возможно, я не понимаю, как использовать machineID exmaple в папке onguard. Также обратите внимание, что ключ для клиентской части и генерация для реляционного кода одинаковы, поэтому не должно быть никакого несоответствия.