Zapisywanie ikon

Jak wykonam (program wykona ;-)) ten kod:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ico: TIcon;
begin
  with TIcon.Create do
  begin
    Width := Application.Icon.Width;
    Height := Application.Icon.Height;
    Assign(Application.Icon);
    SaveToFile('C:\Ikona.ico');
    Free;
  end;
end;

to wiadomo co sie stanie. Chodzi o to, ze zapisana ikona wyglada tak, jakby ktos po niej walcem sobie pojezdzil... Wyswietlane w programie ikony wygladaja jak sie nalezy, ale po ich zapisaniu...
Pytanie jest nastepujace: jak zapisac ikone (TIcon) do pliku, aby wynikowy plik byl identyczny z ikona zaladowana wczesniej do programu (ikona aplikacji, czy w jakims komponencie sobie siedzaca lub tak jak w przykladzie zmiennej TIcon) [???]
F1, F1, F1!!

PS. Przepraszam za brak ogonkow, ale jakis strasznie "inteligentny" koles zamowil do mojej szkoly Maci, a M$ Internet Explorer na ta platworme nie pozwala pisac z ogonkami :-( [chociaz TextEdita (takie cos jak Notatnik) mozna zmusic do pisania z ogonkami]. To samo gowniasty Word i reszta softu z gowniastego Office'a pod MacOS'a - az mna trzesie jak widze cos takiego.

zawsze możesz się do tego zabrać binarnie, wygooglaj nagłówek ikony i po kłopocie :-)

Nie wiem czy wniosę coś do tematu... Oryginał pomocy referencji VCL:

TIcon can be used to display the value of a multi-resolution (>16 color) icon. However, it can not support the creation of multi-resolution icons, nor the resizing of the image after it is loaded from a file or stream.

Cytat z SDK:

An icon is a picture that consists of a bitmapped image combined with a mask to create transparent areas in the picture.

Przemyśl to.