Code:


procedure FillTree(ATree: TTreeView);
var
  reg: TRegistry;

  procedure FillAndTraverseReg(const APath: string; const ATreeNode: TTreeNode);
  var
    s: TStrings;
    i: Integer;
    Temp: TTreeNode;
  begin
    s := TStringList.Create;
    try
      reg.CloseKey;
      reg.OpenKey(APath, False);

      reg.GetKeyNames(s);

       for i := 0 to s.Count - 1 do
       begin
         Temp := ATree.Items.AddChild(ATreeNode, s[i]);
         FillAndTraverseReg(APath + '\' + s[i], Temp);
       end;
    finally
      s.Free;
    end;
  end;
begin
  reg := TRegistry.Create(KEY_READ);
  try
    reg.RootKey := HKEY_CURRENT_USER;
    FillAndTraverseReg('', nil)
  finally
    reg.Free;
  end;
end;