Когда мне это понадобилось, тоже полез писать свою функцию в direct.inc. А потом оказалось, что в codegen.dpr есть недокументированная функция project_name().