Da Delphi standardmäßig Icons nur im alten Format (deshalb mit weniger Farben) speichern kann, stellt
FAlter 
hier eine
Unit vor, mit der man Icons mit mehr Farben speichern kann.
Die Idee zu dieser
Unit stammt dabei aus einem Beitrag von
http://www.experts-exchange.com/
Die besagte
Unit findet sich im Anhang - ein Beispielaufruf könnte so aussehen:
Delphi-Quellcode:
uses
IconTools;
var
Icon1, Icon2: TIcon;
FileName: String;
WriteIconsToFile(FileName, [Icon1, Icon2]);