Como obter o diretório onde o seu programa está instalado

Crie uma váriavel do tipo String e insira a seguinte linha no evento ou função desejada do formulário:

ExtractFilePath(Application.Exename);  

Retorna-rá o path atual do arquivo .EXE do seu programa