...
ime :TImageEnView;
bmp :TBitmap;
begin
  ime:=TImageEnView.Create(nil);
  ime.LegacyBitmap:=False;  
  ime.IO.LoadFromFile(fname, True);
  ime.Proc.Resample(16, 16, rfLanczos3, True);
  bmp:=TBitMap.Create;
  bmp.PixelFormat:=pf32bit;
  bmp.Height:=16;
  bmp.Width:=16;

  ime.IEBitmap.CopyToTBitmap(bmp); // BLACK BACKGROUND
  
  bmp.Assign(ime.Bitmap); // BLACK BACKGROUND

  ime.IEBitmap.DrawToCanvasWithAlpha(bmp.Canvas,0,0,255,1); // WHITE BACKGROUND
  ...

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  ieview, imageenview, Vcl.ImgList, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.ExtDlgs,
  Vcl.ComCtrls, Vcl.ToolWin;

type
  TForm1 = class(TForm)
    OpenPictureDialog1: TOpenPictureDialog;
    Panel1: TPanel;
    Open1: TButton;
    AddToImageList1: TButton;
    ImageList1: TImageList;
    ImageEnView1: TImageEnView;
    ListView1: TListView;
    ToolBar1: TToolBar;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Open1Click(Sender: TObject);
    procedure AddToImageList1Click(Sender: TObject);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses hyiedefs, hyieutils, imageenproc;

procedure TForm1.AddToImageList1Click(Sender: TObject);
{ Create a TBitmap, copy the image to the bitmap with alpha, add the image
  to the ImageList, and add an item to the ListView and toolbar to show the image in the imagelist. }
var
  iBitmap: TBitmap;
  iListItem: TListItem;
  iToolButton: TToolButton;
begin
  iBitmap := TBitmap.Create;
  try
    iBitmap.Width := 32;
    iBitmap.Height := 32;
    ImageEnView1.CopyToBitmapWithAlpha(iBitmap, 0, 0);
    ImageList1.Add(iBitmap, iBitmap);
  finally
    iBitmap.Free;
  end;
    iListItem := ListView1.Items.Add;
    iListItem.Caption := ExtractFilename(ImageEnView1.IO.Params.FileName);
    iListItem.ImageIndex := ImageList1.Count - 1;
    iToolButton := TToolButton.Create(ToolBar1);
    iToolButton.Caption := 'Button' + IntToStr(ToolBar1.ButtonCount);
    iToolButton.Parent := ToolBar1;
    iToolButton.ImageIndex := ToolBar1.ButtonCount-1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  IERegisterFormats;
  OpenPictureDialog1.Filter := GraphicFilter(TGraphic);
  ImageEnView1.Gestures.Pan.Enabled := True;
  ImageEnView1.Gestures.Zoom.Enabled := True;
  ImageEnView1.SetChessboardStyle(8, bsSolid);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  IEUnregisterFormats;
end;

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
{ Display the selected imagelist item. }
var
  iRGB: TRGB;
begin
  ImageEnView1.Blank;
  ImageList1.GetBitmap(Item.ImageIndex, ImageEnView1.Bitmap);
  iRGB := ImageEnView1.IEBitmap.Pixels[0, ImageEnView1.IEBitmap.Height - 1];
  ImageEnView1.Proc.SetTransparentColors(iRGB, iRGB, 0);
  ImageEnView1.Update;
end;

procedure TForm1.Open1Click(Sender: TObject);
{ Load the image, resample to fit the ImageList if necessary, snd set the transparent color. }
var
  iRGB: TRGB;
  iImageEnProc: TImageEnProc;
begin
  if OpenPictureDialog1.Execute then
  begin
    ImageEnView1.IO.LoadFromFile(OpenPictureDialog1.FileName);
    if (ImageEnView1.IEBitmap.Width <> 32) or
      (ImageEnView1.IEBitmap.Height <> 32) then
    begin
      ImageEnView1.Proc.Resample(32, 32);
      ImageEnView1.IO.Params.BitsPerSample := 8;
      ImageEnView1.IO.Params.SamplesPerPixel := 4;
      iRGB := ImageEnView1.IEBitmap.Pixels[0, ImageEnView1.IEBitmap.Height - 1];
      ImageEnView1.Proc.SetTransparentColors(iRGB, iRGB, 0);
      ImageEnView1.Update;
    end;
  end;
end;

end.