anchor.diff:      '\Software\Embarcadero\BDS\14.0',
       '\Software\Embarcadero\BDS\15.0',
       '\Software\Embarcadero\BDS\16.0',
  -    '\Software\Embarcadero\BDS\17.0'
  +    '\Software\Embarcadero\BDS\17.0',
  +    '\Software\Embarcadero\BDS\18.0'
       );
   
   function RegKeyExists(const RegPath: string; const RootKey: HKEY): Boolean;
  
positive.code:     'RAD Studio XE 6',
      'RAD Studio XE 7',
      'RAD Studio XE 8',
      'RAD Studio 10 Seattle'
      );
  
    TDelphiRegPaths: array [TDelphiVersions] of string = (
  
negative.code:     DelphiXE6,
      DelphiXE7,
      DelphiXE8,
      DelphiSeattle10,
      DelphiBerlin101);
  
    TDelphiInstallationCheck = class(TObject)
    public
  