icon changer, wie speicher ich das neue icon in die exe ?

[agm65]

hallo leute, hab mal wieder probleme über probleme...
habe folgenden source um das icon aus der exe zu copieren:

Delphi-Quellcode:

uses ShellApi;

function IconFromFile(const Filename: String; IconNr: Word): HICON;
var
  buffer: array[0..2*MAX_PATH]of Char;
begin
  StrPCopy(buffer, Filename);
  Result := ExtractAssociatedIcon(HInstance, buffer, IconNr);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  TempIcon: HICON;
  Icon:TIcon;
begin
  if OpenDialog1.Execute then begin
    //Icon holen
    TempIcon := IconFromFile(OpenDialog1.FileName,0);
    //Prüfen ob gefunden
    if (TempIcon <> 0) then
    begin
      //In Datei speichern
      Icon:=TIcon.Create;
      Try
        Icon.Handle := TempIcon;
        Icon.SaveToFile('c:\Merke.ico');
      Finally
        Icon.Free;
      End;
    end;
  End;
End;

wie speicher ich jetzt aber ein neues icon (c:\icon.ico) in die exe als neues exe icon ab ?
thx cu agm65