问个读取删除 3389在注册表下的值

[new7mail]

procedure TForm1.Button2Click(Sender: TObject);
var
reg:TRegistry;
List:Tstringlist;
i:integer;
begin
try
listbox1.Clear;
reg:=Tregistry.Create;
List:=Tstringlist.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Terminal Server Client\Default',false);
reg.GetKeyNames(List);
for i:=0 to List.Count-1 do
begin
listbox1.Items.Add(List[i]);
listbox1.Items.Add(reg.ReadString(List[i]));
end;
finally
reg.CloseKey;
reg.Free;
List.Free;
end;

《是一个远程登录 记录 运行MSTSC 远程连接的登录信息读取和删除》

这个是读取 （但是我发现根本读取不到 里面的记录 ） 不知道问题出在哪里 请高手们帮我看看代码
我要在Listbox1 里显示当前连接记录的IP 或则域名
然后 删除如何写呢 帮忙也给个代码吧 最好可以指定删除键值