MyDIR:=ExtractFileDir(Application.ExeName);

В переменной MyDIR будет храниться путь до папки в которой расположена программа.

Но это не единственный вариант. Можно используя функцию:

function ParamStr(Index: Integer): string;

Функция ParamStr(Index: Integer) возвращает параметр под номером Index. С помощю этой функции можно прочесть параметр, с которым она запущена. Но нулевой параметр всегда будет путь до файла программы.

MyDIR:=ExtractFileDir(ParamStr(0));