Извлечение из EXE-файла иконки и рисование ее в TImage - CyberGuru

Каким образом извлечь иконку из EXE- и DLL-файлов (ExtractAssociatedIcon) и отобразить ее на компоненте Timage или небольшой области на форме?

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var

IconIndex : word;

h : hIcon;

begin

IconIndex := 0;

h :=

ExtractAssociatedIcon(hInstance,

'C:\WINDOWS\NOTEPAD.EXE',

IconINdex);

DrawIcon(Form1.Canvas.Handle,

10,

h);

end;