в чем проблема?

[Exploit]

а разве это не подключенно к кнопке??

procedure TRegCom.Button1Click(Sender: TObject);
begin
listbox1.Clear;
reg:=TRegistry.Create;
p:=TStringList.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;

if reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall',false) then
reg.GetKeyNames(p);
reg.Free;

if p.Count>0 then
for i := 0 to p.Count-1 do
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
  if  reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+p[i],false) then
     if reg.ValueExists('DisplayName') then
       if reg.ValueExists('UninstallString') then
       ListBox1.Items.Add(reg.ReadString('DisplayName'));
reg.Free;
end;

если нет то каким образом сделать?