Извлечение иконки из .exe (какой индекс всегда правильный?)

[Filka]

if FileInfo.iIcon <> 0 then
begin
  ImageList_AddIcon(ImageList1.Handle, FileInfo.hIcon); // uses CommCtrl
  DestroyIcon(FileInfo.hIcon);
end;

if FileInfo.iIcon <> 0 then
begin
  Icon := TIcon.Create;
  try
    Icon.Handle := FileInfo.hIcon;
    ImageList1.AddIcon(Icon);
  finally
    Icon.Free;
  end;
end;

[Sabouter2017]

Ясно, спасибо.