procedure TForm1.SaveResourceIcons(const AResourceFile, AExtrIconFile: string);
var
  i: integer;
  j: integer;
  k: integer;
  iResourceExtractor: TIEResourceExtractor;
  iFrames: array of TObject;
  iBuffer: Pointer;
  iBufferLen: integer;
  iFileToSave: string;
  iGroupFrameWidth: integer;
  iGroupFrameHeight: integer;
begin
  iResourceExtractor := TIEResourceExtractor.Create(AResourceFile);
  try
    if iResourceExtractor.IsValid then
    begin
      // search for GroupIcon, loop among Types:
      for i := 0 to iResourceExtractor.TypesCount - 1 do
      begin
        //CodeSite.Send('iResourceExtractor.Types[i]', iResourceExtractor.Types[i]);
        if iResourceExtractor.FriendlyTypes[i] = 'GroupIcon' then
        begin
          //CodeSite.Send('iResourceExtractor.FriendlyTypes[i] = GroupIcon');
          // GroupIcon found, loop among Names
          for j := 0 to iResourceExtractor.NamesCount[i] - 1 do
          begin
            // Allocate array of TImageEnView objects and load frames
            SetLength(iFrames, iResourceExtractor.GroupCountFrames[i, j]);
            for k := 0 to length(iFrames) - 1 do
            begin
              iBuffer := iResourceExtractor.GetFrameBuffer(i, j, k, iBufferLen);
              iFrames[k] := TImageEnView.Create(nil);
              iGroupFrameWidth := iResourceExtractor.GroupFrameWidth[i, j, k];
              iGroupFrameHeight := iResourceExtractor.GroupFrameHeight[i, j, k];
              (iFrames[k] as TImageEnView).IO.Params.IsResource := True;
              (iFrames[k] as TImageEnView).IO.LoadFromBuffer(iBuffer, iBufferLen, ioICO);
              (iFrames[k] as TImageEnView).IO.Params.ICO_Sizes[k].cx := iGroupFrameWidth;
              (iFrames[k] as TImageEnView).IO.Params.ICO_Sizes[k].cY := iGroupFrameHeight;
              (iFrames[k] as TImageEnView).IO.Params.ICO_BitCount[k] := (iFrames[k] as TImageEnView).IO.Params.SamplesPerPixel *
                (iFrames[k] as TImageEnView).IO.Params.BitsPerSample;
            end;

            // Create Multiframe ICO
            iFileToSave := AExtrIconFile + IntToStr(j) + '.ico';
            IEWriteICOImages(iFileToSave, iFrames);

            // Cleanup Frames
            for k := 0 to length(iFrames) - 1 do
              iFrames[k].Free();
          end;
        end;
      end;
    end;
  finally
    iResourceExtractor.Free;
  end;
end;

// usage:
SaveResourceIcons(Trim(Edit1.Text), 'R:\ExtractedIcon');