Verificar se existe um programa instalado no computador.

Caros amigos,
como faço para verificar se existe um programa (tipo .exe) instalado no computador, a partir do procedure FormShow?
Obrigado a todos...