1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

  UninstallPath32 := 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\';
  UninstallPath64 := 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\'; 
  //falls 32 bit system
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  if reg.KeyExists(UninstallPath32) then
    begin
    if reg.OpenKeyReadOnly(UninstallPath32) then
       reg.GetKeyNames(Memo1.Lines);
    end;
  reg.CloseKey;
  reg.free;              

  //falls 64 bit system
  reg2 := TRegistry.Create;
  reg2.RootKey := HKEY_LOCAL_MACHINE;
  if reg2.KeyExists(UninstallPath64) then
    begin
    if reg2.OpenKeyReadOnly(UninstallPath64) then
       reg2.GetKeyNames(Memo2.Lines);
    end;
  reg2.CloseKey;
  reg2.free;