What delphi component put such kind of protection inside main form ?

object Ss: TSs
EncrypKey = 'x3r100'
RegistryKey = 'SOFTWARE\PSW\x3r100'
RegName = 'UNREGISTERED'
TrialDays = 0
UseHDSerial = True
LogAutoClrate = False
Left = 16
Top = 96
end
end

Thx.