ExtractFilePath(Application.ExeName) + 'music.mid'
とかにすりゃいいんじゃないの。