Узнать установлена ли программа на компьютере

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "registry.hpp"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
 
TStringList *All = new TStringList;
 
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Button1Click(TObject *Sender)
{
  bool ProgrammInstalled = false;
  All->Add("Раздел All Users:");
  FindReg(HKEY_LOCAL_MACHINE);
  All->Add("***************************************");
  All->Add("Раздел Current User:");
  All->Add("=============================");
  FindReg(HKEY_CURRENT_USER);
 
  TStringList *Temp = new TStringList;
  for(int i = 0; i < All->Count; i++)
   if(Temp->IndexOf(All->Strings[i]) == -1) Temp->Add(All->Strings[i]);
  Memo1->Text = Temp->Text;
  delete Temp;
  for(int i = 0; i < Memo1->Lines->Count; i++)
   if(Memo1->Lines->Strings[i].Trim() == Edit1->Text.Trim())
     {
       ProgrammInstalled = true;
       break;
     }
   if(ProgrammInstalled)
    ShowMessage("Программа " + Edit1->Text + " скорее всего установлена");
   else ShowMessage("Программа " + Edit1->Text + " не установлена");
}
//---------------------------------------------------------------------------
void __fastcall TForm6::FindReg(HKEY rKey)
{
  String Path, Values;
  TRegistry *reg = new TRegistry();
  reg->RootKey = rKey;
  Path = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\";
  TStringList *l = new TStringList;
  reg->OpenKey(Path, false);
  reg->GetKeyNames(l);
  for(int i = 0; i < l->Count; i++)
   {
     String SubPath = Path + l->Strings[i];
     reg->OpenKey(SubPath, false);
     if(reg->ValueExists("DisplayName"))
      Values = reg->ReadString("DisplayName");
     All->Add(Values);
     reg->CloseKey();
   }
  delete l;
  delete reg;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::FormClose(TObject *Sender, TCloseAction &Action)
{
  delete All;
}
//---------------------------------------------------------------------------

#ifndef Unit6H
#define Unit6H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm6 : public TForm
{
__published:    // IDE-managed Components
    TMemo *Memo1;
    TButton *Button1;
    TEdit *Edit1;
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:    // User declarations
    void __fastcall FindReg(HKEY rKey);
public:     // User declarations
    __fastcall TForm6(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm6 *Form6;
//---------------------------------------------------------------------------
#endif