Идёт загрузка страницы...
Delphi 1
Сперва для получения дескриптора иконки используйте вызов API ExtractIcon, затем назначьте (assign) ее TImage.
Далее смотри электронную документацию. [000389]