Guardar correctamente un icono como ".ico"

[bosster_018]

Un saludo grande a todos ustedes...
Tengo una duda desde hace tiempo que no puedo llegar a solucionar.

¿Cómo puedo guardar correctamente un icono desde mi aplicación?
¿Parece sencillo, no ? ¿Ya estoy oyendo (SaveToFile )?

Empezaré por el principio.... Tengo una funcion para extraer el "Icono" de cualquier programa en una Timagen:

(Sacada desde el ClubDelphi)

Primero en mi formulario agrego una Timagen y luego un boton.
En el boton escribo:

Código Delphi [-]
Uses
  ShellApi

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Icono:  TIcon;
begin
  Icono := TIcon.Create;
  //Extraer el icono de una aplicación, en este caso la calculadora de Windows
  Icono.Handle := ExtractIcon(hInstance,'calc.exe',0);
  Image1.Picture:= TPicture(Icono);
  //¿Como guardo esta imagen del icono como .ico?
  Image1.Picture.SaveToFile('boss.ico');
  Icono.Free;
end;

Pero si lo prueban, verán que al guardar la imagen del icono, esta se guarda como...... En blanco y negro, casi sin color.

Así que mi pregunta es ¿cómo guardar este icono extraído en una Timagen con una buena resolución gráfica?

Gracias por su tiempo queridos amigos del ClubDelphi