Cargar una imagen con un icono

[madiazg]

Hola,
tengo que cargar en un Timage el icono asociado a una aplicación. Por internet he conseguido averiguar como obtener el handle del icono asociado: (en el ejemplo cambia el icono de mi aplicación)

uses SysUtils, Windows, ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
  IconIndex: word;
  Buffer: array[0..2048] of char;
  IconHandle: HIcon;
begin
  StrCopy(@Buffer, 'C:\Windows\Help\Windows.hlp');
  IconIndex := 0;
  IconHandle := ExtractAssociatedIcon(HInstance, Buffer, IconIndex);
  if IconHandle <> 0 then
    Icon.Handle := IconHandle;
end;

Lo he obtenido de http://www.latiumsoftware.com/es/delphi/00014.php

Lo que no he conseguido es cargar la imagen del icono en el Timage.
¿Pueden ayudarme?
Saludos...
Miguel Angel