[s0Creator]

Похоже список у тебя пустой или ключ не открылся.
Попробуй

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  i, k: Integer;
  DReg: TRegistry;
  DestSubKeys: TStringList;
begin
  DReg := TRegistry.Create(KEY_READ);
  try
    DReg.RootKey := HKEY_LOCAL_MACHINE;
    DestSubKeys := TStringList.Create;
    try
      if DReg.OpenKeyReadOnly('полный путь ключа') then
      begin
        DReg.GetKeyNames(DestSubKeys);
        if DestSubKeys.Count = 0 then
          ShowMessage('Список подключей пуст')
          else
            for i := 0 to DestSubKeys.Count - 1 do
              Memo1.Lines.Add(DestSubKeys[i]);
      end
      else
        ShowMessage('Не удалось открыть ключ');
    finally
      DestSubKeys.Free;
    end;
  finally
    DReg.Free;
  end;

end;