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