Pegar diretórios de arquivos

Saudações...
Tem alguma função em Delphi que ao passar o nome do programa por exemplo GetDiretorio('tabtip.exe') ele me retorna o o diretório de onde esta esse tabtip.exe?
Desde de já obrigado!!!