Как перечислить подразделы в реестре

[tarakan1983]

Здравствуйте. Подскажите пожалуйста как поступить в следующей ситуации.
У меня в реестре (HKEY_CURRENT_USER\Software) есть раздел "Proga", у этого раздела есть несколько подразделов
0
1
2
...
n
и разделы
Privet
Poka
Ale

Как мне в Memo1 перечислить разделы только с цифирными значениями?
Спасибо.

[Zer0]

var r:TRegistry;
     sl:TStringList;
     i,t:integer;
begin
r:=TRegistry.Create;
r.RootKey:=HKEY_LOCAL_MACHINE; //для примера
reg.OpenKey('SOFTWARE/MyProga/');
sl:=TStringList.Create;

r.GetKeyNames(SL); //получим список всех ключей в ветке
memo1.lines.Clear;
for i:=0 to sl.count-1 do
 if TryStrToInt(sl[i],t) then //если получилось перевести название ветки в число, то оно является числовым
   Memo1.Lines.Add(sl[i]); //добавляем в мемо
sl.free;
reg.free;
end;

[tarakan1983]

Спасибо, все получилось