Delphi - EXTRAER ICONO

NESECITO SABER COMO EXTRAER DESDE UN *.EXE EL ICONO DE ESTE, Y MOSTRARLO EN UN componente \"Timage\".

De ante mano, Gracias

-Añade 'ShellApi' en el uses de tu form
-Pon un TImage (Image1) y un TButton (Button1) en tu form
-Pon este código en el OnClick del Button1:

procedure TForm1.Button1Click(Sender: TObject);
var
Icono:TIcon;
Indice:word;
begin
Icono:=TIcon.Create;
{Indice del icono a extraer}
{Icon Index to extract}
Indice:=0;
Icono.handle:=ExtractAssociatedIcon(hInstance,Pchar('c:\XXX.exe'),Indice);
Image1.Picture.Bitmap.Width:= Icono.Width;
Image1.Picture.Bitmap.Height:= Icono.Height;
Image1.Picture.Bitmap.Canvas.Draw(0,0,Icono);
Icono.Free;
end;