Поправил выявленные проблемы (fpc работает, опечатки). Добавил функционала в doGetFileIcon (описание в первом посте, пример в архиве).