Cómo saber si está instalado un programa y dónde

[Casimiro Noteví]

Hola, eso, no recuerdo ninguna función que me diga si está instalado un programa, y si lo está que me devuelva la ruta al mismo.
Algo así como:

Código Delphi [-]
function EstaInstalado(cPrograma:string):string;
begin
  result:='';  
  if jfdsjfdsfj(cPrograma) then
    result PathAlPrograma;
end;

Ejemplo:

Código Delphi [-]
ShowMessage( EstaInstalado('ibexpert') );