]、。·ˉˇ¨〃々—～‖…’”〕〉》」』〗】∶！＂＇），．：；？］｀ procedure xxxxx(KeyName)
var
...
begin
定位主键的位置
if Registry.HasSubKeys then
Registry.GetKeyNames(TString);
for i:=0 to TString.Items.Count-1 do
xxxxx(TString.Values[i])
end;