changer l'icône d'un exe

salut,

j'ai récupéré une icône à partir d'un exe1 pour ensuite la coller sur un autre exe2 qui contient l'exe1 compressé
mais je ne trouve pas le moyen

voila la portion qui permit de récupérer l'icône et de la sauvegarder
Code:

1 2 3 4 ico:= 'C:\Users\hp\Desktop\Nouveau dossier (2)\Icone.ico '; Icon:=TIcon.Create; Icon.Handle:=ExtractIcon(hInstance,PChar(source),0); Icon.SaveToFile(ico);
merci