Localizar caminho do arquvio TNSNAMES.ORA

Boa Noite pessoal,

alguem sabe como recuperar o caminho do TNSNAMES.ORA sem precisar usar componentes...

estou com um problema em um sistema... estou migrando de Delphi 7 para XE6 e é utilizado em uma tela de login um componete do externo para pegar o caminho do TNSNAMES

alguem sabe como faço para pegar esse caminho sem precisar de componente no delphi...

uma função sei la...


agradeço desde Já a ajuda de quem puder..