注册表如何递归

procedure xxxxx(KeyName) var
...
begin
定位主键的位置
if Registry.HasSubKeys then
begin
Registry.GetKeyNames(TString);
for i:=0 to TString.Items.Count-1 do
xxxxx(TString.Values)
end;
end;