Аналог (acet-reg-prodkey) на Delphi

Const acad = "SOFTWARE\Autodesk\AutoCAD\R16.0"
Dim hregkey As Long
Dim retval As Long
Dim stringbuffer As String
.....................................
' --- Находим текущую версию Автокада ---
' открываем раздел реестра HKEY_CURRENT_USER
  retval = RegOpenKeyEx(HKEY_CURRENT_USER, acad, 0, KEY_READ, hregkey)
  If retval <> 0 Then  ' ошибка во время открытия
    MsgBox "AutoCAD2004 не обнаружен", 16
  End If
' Получаем значение параметра "CurVer".
' Используем при этом ключевое слово ByVal
  stringbuffer = Space(255)  'создаем буфер для получения информации
  retval = RegQueryValueEx(hregkey, "CurVer", 0, REG_SZ, _
                      ByVal stringbuffer, Len(stringbuffer))  'получаем значение параметра
  stringbuffer = StrZToStr(stringbuffer)  'ACAD-201:409
' Закрываем раздел реестра HKEY_CURRENT_USER
  retval = RegCloseKey(hregkey)
stringbuffer = acad & "\" & stringbuffer

function ruFindAcadAppString(ExeName: string): string;
  function FindForAppVer(AcadApp, ExeName: string): string;
  var
    Acad_CLSID, AcadLocalServer32: string;
  begin
    Result := '';
    Acad_CLSID :='';
    AcadLocalServer32:='';
    try
        Acad_CLSID:= RegReadString(HKEY_CLASSES_ROOT, AcadApp + '\CLSID', '');
    except
    end;
    if (Acad_CLSID <> '') then begin
      try
          AcadLocalServer32:= RegReadString(HKEY_CLASSES_ROOT, 'CLSID\'+Acad_CLSID+'\LocalServer32','');
      except
      end;
      if  (AcadLocalServer32 <> '') then
        if StrFind(ExeName, AcadLocalServer32, 1) > 0 then
          Result := AcadApp;
     end;
  end;
begin
  Result := FindForAppVer('AutoCAD.Application', ExeName);
  if Result = '' then
    Result := FindForAppVer('AutoCAD.Application.15', ExeName);
  if Result = '' then
    Result := FindForAppVer('AutoCAD.Application.16', ExeName);
  if Result = '' then
    Result := FindForAppVer('AutoCAD.Application.16.1', ExeName);
end;