function DoesOCXRegistered: Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    with Reg do begin
      RootKey := HKEY_CLASSES_ROOT;
      Result := OpenKey('{ -- OCX's GUID -- }', False);
    end;
  finally
    Reg.Free;
  end;
end;