Windows Registry

Is there a function in Delphi to read the names of all the subkeys within a given key. I can get the values from them all or all keys underneath the current, but not all subkey names.

GetKeyNames(Strings: TStrings);
Fills in the TStrings object with all key names under the current key.

http://www.aimtec.com.au/articles/RegistryInDelphi/default.htm#_Toc419260402