Здравствуйте Voice, Вы писали:

V>Мне интересно, можно ли на дельфе перевести TBitmap в TIcon, И если да, то как?

Сорри, дружище, на Дельфи в жизни не писал. Но если TBitmap и TIcon — это только обёртки над HBITMAP и HICON, то могу предложить такую идею:

— создать image list (ImageList_Create)
— добавить в него битмап (ImageList_Add)
— извлечь из него иконку (ImageList_GetIcon)