でも、ぶっちゃけ
ExtractFilePath(Application.ExeName)
が一番Pascalらしい(ってなんですか)