Проверка активации OS & MS Office

[Dima170792]

Добрый день.
Зашел в тупик, необходима Ваша помощь уважаемые.

Суть такая - хочу по нажатию на клавишу получать текущее состояние активации OS (windows 10 ) и ms office

Ранее порыл в тырнетах информацию, и все что удалось найти :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    edt2: TEdit;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure GetOwnerAndCompanyName(var sOwner, sProductId: string);
 var
   reg: TRegistry;
   vi: TOSVersionInfo;
   sWindows: string;
 begin
   reg      := TRegistry.Create;
   sWindows := '\Windows\';
   try
     vi.dwOSVersionInfoSize := SizeOf(vi);
     getversionex(vi);
     reg.RootKey := HKEY_LOCAL_MACHINE;
     if (vi.dwPlatformId = VER_PLATFORM_WIN32_NT) then sWindows := '\Windows NT\';
     if reg.OpenKey('Software\Microsoft' + sWindows + 'CurrentVersion', False) then
     begin
       // Name
      sOwner := reg.ReadString('RegisteredOwner');
       // ProductId
      sProductId := reg.ReadString('ProductId');
     end;
   finally
     reg.Free;
   end;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
   sOwner, sProductId: string;
 begin
   GetOwnerAndCompanyName(sOwner, sProductId);
   edt1.Text := sOwner;
   edt2.Text := sProductId;

end;

end.

Но код не дружит с 10й, а как проверить активацию офиса воообще не нашел((
Возможно владеете такой информацией? заранее благодарен