Delphiについての質問です。

exeファイルを指定して、そのアイコンを書き換えるにはどうすればよいですか？
（プロジェクトのオプションでアイコンファイルを
指定するやり方を聞いているのではなく、
コードで処理する方法です）

よろしくお願いいたします。
解決した場合は1000ポイント差し上げます。