Вывести в Memo информацию о установленном ПО (на Delphi)

[Serge_Bliznykov]

var S : string;
.....

  for i := 0 to lst.count - 1 do
  begin
    reg1.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + lst.Strings[i], FALSE);
    S := reg1.ReadString('DisplayName'); 
    if ТУТ ПРОВЕРКА НА УСЛОВИЕ ОТБОРА строки S then 
        memo1.lines.append(S);
    reg1.closekey;
  end;

[hysek]

само условие я знаю как пишется,проблема в том что я не знаю какая ПРОВЕРКА НА УСЛОВИЕ ОТБОРА

[Serge_Bliznykov]

само условие я знаю как пишется,проблема в том что я не знаю какая ПРОВЕРКА НА УСЛОВИЕ ОТБОРА

ОМГ!
А кто знает?!?! Кому это, кроме Вас знать?!

для тех надписей, что обведены красным можно написать такое условие отбора:

if (Pos('ИСПРАВЛЕНИЕ ДЛЯ WINDOWS', AnsiUpperCase(trim(s)))<>1)
   and (Pos('ОБНОВЛЕНИЕ БЕЗОПАСНОСТИ ДЛЯ WINDOWS', AnsiUpperCase(trim(s)))<>1) 
   and (Pos('HOTFIX FOR WINDOWS', AnsiUpperCase(trim(s)))<>1) then 
....