function IsInstall2013: Boolean;
var
  Success: Boolean;
  OfficeVer: Cardinal;
begin
  Success := RegQueryDWordValue(HKEY_CLASSES_ROOT, 'Word.Application\CurVer',
    'Word.Application.15', OfficeVer);
  Result := Success and (OfficeVer = 123456789);
end;