如何使用Delphi从另一个文件的资源加载单个图标？

uses
  Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;

function LoadIconFromFile(const FileName: string; const IconIndex: Integer): TIcon;
var
  hRes: HRSRC;
  hGlobal: THandle;
  pRes: Pointer;
  pStream: TMemoryStream;
begin
  Result := nil;
  hRes := FindResource(0, PChar(Format('ICON%d', [IconIndex])), RT_ICON);
  if hRes = 0 then
    Exit;
  hGlobal := LoadResource(0, hRes);
  if hGlobal = 0 then
    Exit;
  pRes := LockResource(hGlobal);
  if pRes = nil then
    Exit;
  pStream := TMemoryStream.Create;
  try
    pStream.WriteBuffer(pRes^, SizeOfResource(0, hRes));
    Result := TIcon.Create;
    Result.LoadFromStream(pStream);
  finally
    pStream.Free;
    UnlockResource(hGlobal);
    FreeResource(hGlobal);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Icon: TIcon;
begin
  Icon := LoadIconFromFile('C:\path\to\your\file.exe', 0);
  if Assigned(Icon) then
  try
    Image1.Picture.Icon := Icon;
  finally
    Icon.Free;
  end;
end;