exepath : string;

      exepath :=ExtractFilePath(application.exename)

例えば、memo1に実行ファイルと同じフォルダにあるtext.txtを取得

memo1.lines.loadfromfile(ExtractFilePath(application.exename)+'test.txt');