请教怎么显示注册表的run项里面所有值.

请问如何显示注册表的run项里面所有值..
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
如何显示这里的所有值.因为是不确定的.要用什么东东来表示???看了下自带的注册表类.好像没有读某一个项下面所有值的...

[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
k,k1,v:string;
key:TRegistry;
s:TStringList;
i:integer;
begin
k:= 'SOFTWARE\Microsoft\Windows\CurrentVersion\Run ';
key:=TRegistry.create(KEY_READ);
s:=TStringList.Create;
key.RootKey:=HKEY_LOCAL_MACHINE;
if key.OpenKey(k,false) then
begin
key.GetValueNames(s);
for i:=0 to s.Count-1 do
begin
k1:=s.Strings[i];
Memo1.Lines.Add(key.ReadString(k1));
end;
end;
key.CloseKey;
key.Free;
s.Free;
end;