Convertir bmp a .ico

[jealousy]

Hola,

¿como?

He probado con esto:

Var
bmp:TBitMap;
ico:TIcon;

Begin
bmp:=TBitMap.Create(Self);
ico:=TIcon.Create(Self);

bmp.LoadFromFile(Archivo);
ico.Assign(bmp);
bmp.Free;
ico.Free;

End;


No da error, pero si Excepcion en la siguiente linea:
ico.Assign(bmp);


Gracias y saludos a todo el foro