AnsiString AppPath = ExtractFilePath(Application->ExeName); もしくは AnsiString AppPath = ExtractFilePath( ParamStr( 0 ) );