[Ultras]

когда то делал так лет 7 назад:

Код:

var
  Reg: TRegistry;
  Keys: TStringList;
begin
  Reg := TRegistry.Create;
  Keys := TStringList.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\SYSTEM\CurrentControlSet\Enum\PCI\',False);
  Reg.GetKeyNames(Keys);
  Reg.CloseKey;

  ShowMessage(Keys[0]); //первый элемент
  Keys.Free;
end;

помоему так...