No tengo Vista ni Windows 7, pero creo que debes buscar por aqui...
Código Delphi
[-]
const
INSTALADOS = '\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
Seguramente la clave del registro para Vista y Win7 debe ser diferente...revisa el registro y busca a mano hasta dar con las claves correctas...
Saludos