제가 예전에 사용했던 루틴입니다.  ^^

//----------------------------------------------------------//
// 소프트웨어 정보 가져오기 - String List 형태
//----------------------------------------------------------//
Procedure Get_SoftwareSTR(SWlist : TStringList);
const CLAVE =
  'SOFTWAREMicrosoftWindowsCurrentVersionUninstall';
var
  reg    : TRegistry;
  Lista, Lista2: TStringList;
  i,n    : integer;
  SoftwareSTR :String;
begin
  reg    := TRegistry.Create;
  Lista  := TStringList.Create;
  Lista2 := TStringList.Create;
  SoftwareSTR := '';
  
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey(CLAVE,false);
    GetKeyNames(Lista);
  end;

  for i := 0 to Lista.Count -1 do
  begin
    reg.OpenKey(CLAVE + '' +Lista.Strings[i],false);
    reg.GetValueNames(Lista2);

    n:=Lista2.IndexOf('DisplayName');
    if (n <> -1) and (Lista2.IndexOf('UninstallString') <> -1) then
      SWlist.Add(reg.ReadString(Lista2.Strings[n]));
  end;

  Lista.Free;
  Lista2.Free;
  reg.CloseKey;
  reg.Destroy;
end;