IERegisterFormats;
{ Set the file dialogs filters }
OpenPictureDialog1.Filter := GraphicFilter(TGraphic);

// TIEMultiBitmap
///////////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////////////
  TIETIFFImage = class(TIEGraphicBase)
  end;
  TIEGIFImage = class(TIEGraphicBase)
  end;
  TIEJpegImage = class(TIEGraphicBase)
  end;
  TIEPCXImage = class(TIEGraphicBase)
  end;
  TIEBMPImage = class(TIEGraphicBase)
  end;
  TIENativeImage = class(TIEGraphicBase) << Add >>
  end;
  TIEICOImage = class(TIEGraphicBase)
  end;

procedure IERegisterFormats;
begin
  TPicture.RegisterFileFormat('TIF', 'TIFF Image', TIETIFFImage);
  TPicture.RegisterFileFormat('TIFF', 'TIFF Image', TIETIFFImage);
  TPicture.RegisterFileFormat('FAX', 'TIFF Image', TIETIFFImage);
  TPicture.RegisterFileFormat('G3N', 'TIFF Image', TIETIFFImage);
  TPicture.RegisterFileFormat('G3F', 'TIFF Image', TIETIFFImage);

  TPicture.RegisterFileFormat('GIF', 'GIF Image', TIEGIFImage);

  TPicture.RegisterFileFormat('JPG', 'JPEG Image', TIEJpegImage);
  TPicture.RegisterFileFormat('JPEG', 'JPEG Image', TIEJpegImage);
  TPicture.RegisterFileFormat('JPE', 'JPEG Image', TIEJpegImage);

  TPicture.RegisterFileFormat('PCX', 'PaintBrush', TIEPCXImage);

  // BMP extension disabled to avoid conflicts with VCL version
  //TPicture.RegisterFileFormat('BMP', 'Windows Bitmap', TIEBMPImage);
  TPicture.RegisterFileFormat('DIB', 'Windows Bitmap', TIEBMPImage);
  TPicture.RegisterFileFormat('RLE', 'Windows Bitmap', TIEBMPImage);

  // ICO is disabled to avoid conflicts with VCL version
//TPicture.RegisterFileFormat('ICO', 'Windows Icon', TIEICOImage);

{$IFDEF IEINCLUDEPNG}
  TPicture.RegisterFileFormat('PNG', 'Portable Network Graphics', TIEPNGImage);
{$ENDIF}

  TPicture.RegisterFileFormat('TGA', 'Targa Image', TIETGAImage);
  TPicture.RegisterFileFormat('TARGA', 'Targa Image', TIETGAImage);
  TPicture.RegisterFileFormat('VDA', 'Targa Image', TIETGAImage);
  TPicture.RegisterFileFormat('ICB', 'Targa Image', TIETGAImage);
  TPicture.RegisterFileFormat('VST', 'Targa Image', TIETGAImage);
  TPicture.RegisterFileFormat('PIX', 'Targa Image', TIETGAImage);

  TPicture.RegisterFileFormat('PXM', 'Portable Pixmap, Greymap, Bitmap', TIEPXMImage);
  TPicture.RegisterFileFormat('PPM', 'Portable Pixmap, Greymap, Bitmap', TIEPXMImage);
  TPicture.RegisterFileFormat('PGM', 'Portable Pixmap, Greymap, Bitmap', TIEPXMImage);
  TPicture.RegisterFileFormat('PBM', 'Portable Pixmap, Greymap, Bitmap', TIEPXMImage);

{$IFDEF IEINCLUDEJPEG2000}
  TPicture.RegisterFileFormat('JP2', 'JPEG2000', TIEJP2Image);
  TPicture.RegisterFileFormat('J2K', 'JPEG2000 Code Stream', TIEJ2KImage);
  TPicture.RegisterFileFormat('JPC', 'JPEG2000 Code Stream', TIEJ2KImage);
  TPicture.RegisterFileFormat('J2C', 'JPEG2000 Code Stream', TIEJ2KImage);
{$ENDIF}

  TPicture.RegisterFileFormat('PSD', 'Adobe PSD', TIEPSDImage);
  TPicture.RegisterFileFormat('IEN', 'ImageEn Native Format', TIENativeImage); << Add >>
end;

procedure IEUnregisterFormats;
begin
  try
    TPicture.UnregisterGraphicClass(TIETIFFImage);
    TPicture.UnregisterGraphicClass(TIEGIFImage);
    TPicture.UnregisterGraphicClass(TIEJpegImage);
    TPicture.UnregisterGraphicClass(TIEPCXImage);
    TPicture.UnregisterGraphicClass(TIEBMPImage);
    //TPicture.UnregisterGraphicClass(TIEICOImage); // ICO is disabled to avoid conflicts with VCL version
    {$ifdef IEINCLUDEPNG}
    TPicture.UnregisterGraphicClass(TIEPNGImage);
    {$endif}
    TPicture.UnregisterGraphicClass(TIETGAImage);
    TPicture.UnregisterGraphicClass(TIEPXMImage);
    {$ifdef IEINCLUDEJPEG2000}
    TPicture.UnregisterGraphicClass(TIEJP2Image);
    TPicture.UnregisterGraphicClass(TIEJ2KImage);
    {$endif}
    TPicture.UnregisterGraphicClass(TIEPSDImage);
    TPicture.UnregisterGraphicClass(TIENativeImage); << Add >>
  except
  end;
end;

procedure IEInitFileFormats;
...
 // ImageEn Native File Format << Add >>
  fi := TIEFileFormatInfo.Create;
  with fi do
  begin
    FileType := ioIEN;
    FullName := 'ImageEn Native File Format';
    Extensions := 'IEN';
    SuitableExtension := 'ien';
    DialogPage := [];
    ReadFunction := nil;
    WriteFunction := DumpWriteImageStream;
    TryFunction := DumpTryimageStream;
    InternalFormat := True;
    IEFileFormatAdd(fi);
  end;
...
end;