Век живи, как говорится, никогда не обращал на эту штуку внимания. Попробовал тут в XE3 завести, думал, может заведётся, ан нет, пишет, что ресурса FOLDER не найдено.
Спасибо за исходник. Осталось только понять что там каждая из функций делает.
Так вот прикольней смотрится, но не для всех дельфей, к сожалению: