ImageEnVect1.SetExternalBitmap( ImageEnMView1.GetTIEBitmap( Number ) );
ImageEnVect1.Fit;

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 645
  ClientWidth = 527
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    527
    645)
  PixelsPerInch = 96
  TextHeight = 13
  object ImageEnVect1: TImageEnVect
    Left = 8
    Top = 167
    Width = 511
    Height = 470
    Background = clBtnFace
    ParentCtl3D = False
    MouseInteract = [miSelectZoom]
    Anchors = [akLeft, akTop, akRight, akBottom]
    EnableInteractionHints = True
    TabOrder = 0
  end
  object ImageEnMView1: TImageEnMView
    Left = 6
    Top = 39
    Width = 513
    Height = 122
    Background = clBtnFace
    ParentCtl3D = False
    StoreType = ietNormal
    ThumbWidth = 100
    ThumbHeight = 100
    HorizBorder = 4
    VertBorder = 4
    TextMargin = 0
    OnImageSelect = ImageEnMView1ImageSelect
    GridWidth = 0
    Style = iemsACD
    ThumbnailsBackground = clBtnFace
    ThumbnailsBackgroundSelected = clBtnFace
    MultiSelectionOptions = []
    ThumbnailsBorderWidth = 0
    TabOrder = 1
  end
  object Button1: TButton
    Left = 8
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Load'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 88
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Flip Image'
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 168
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Clear'
    TabOrder = 4
    OnClick = Button3Click
  end
end

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, iemview, imageenview, ieview, ievect;

type
  TForm1 = class(TForm)
    ImageEnVect1: TImageEnVect;
    ImageEnMView1: TImageEnMView;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ImageEnMView1ImageSelect(Sender: TObject; idx: Integer);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  hyiedefs;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ImageEnMView1.MIO.LoadFromFileTIFF( 'D:\Pictures\Scans\300dpi\Papers Type 9_15.tif' );
  ImageEnMView1.SelectedImage := 0;
  ImageEnMView1ImageSelect( ImageEnMView1, 0 );
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ImageEnVect1.Proc.Flip( fdHorizontal );
  ImageEnMView1.UpdateImage( ImageEnMView1.SelectedImage );
end;

procedure TForm1.Button3Click(Sender: TObject);
//var
//  EmptyPic: TBitmap;
begin
  ImageEnMView1.Clear;
//  None of the following methods actually blank out the control without an error
//  ImageEnVect1.Blank;
  ImageEnVect1.Clear;
//  ImageEnVect1.Update;
//  ImageEnVect1.Refresh;
//  ImageEnVect1.Invalidate;
//  ImageEnVect1.IO.Update;
//  ImageEnVect1.Paint;
//  EmptyPic := TBitmap.Create;
//  try
//    EmptyPic.Height := 1;
//    EmptyPic.Width := 1;
//    ImageEnVect1.Assign( Bitmap );
//    ImageEnVect1.Update;
//  finally
//    EmptyPic.Free;
//  end;
end;

procedure TForm1.ImageEnMView1ImageSelect(Sender: TObject; idx: Integer);
begin
  ImageEnVect1.SetExternalBitmap( ImageEnMView1.GetTIEBitmap( idx ) );
  ImageEnVect1.Fit;
end;

end.

procedure TForm1.ImageEnMView1ImageSelect(Sender: TObject; idx: Integer);
{ Get the selected image in TImageEnMView and display it in TImageEnVect; }
begin
  { Create a TIEBitmap object from the image at index and assign it to TImageEnVect }
  ImageEnVect1.IEBitmap.Assign(ImageEnMView1.GetTIEBitmap(idx));
  ImageEnVect1.Update;
  { Release the bitmap created with TImageEnMView.GetTIEBitmap }
  ImageEnMView1.ReleaseBitmap(idx);
  { If you do not release the bitmap after calling GetTIEBitmap there will be a
    large memory leak. }
  ImageEnVect1.Fit;
end;

procedure TForm1.Load1Click(Sender: TObject);
{ Load a file into TImageEnMView, select the first image and display the
  selected image in TImageEnVect. }
begin
  if OpenPictureDialog1.Execute then
  begin
    ImageEnMView1.MIO.LoadFromFile(OpenPictureDialog1.FileName);
    ImageEnMView1.SelectedImage := 0;
    ImageEnVect1.IEBitmap.Assign(ImageEnMView1.GetTIEBitmap(0));
    ImageEnVect1.Update;
    ImageEnMView1.ReleaseBitmap(0);
  end;
end;

procedure TForm1.FlipImage1Click(Sender: TObject);
{ Flip the image and replace the TImageEnMView selected image with the flipped
  image. }
begin
  ImageEnVect1.Proc.Flip(fdHorizontal);
  ImageEnMView1.SetIEBitmap(ImageEnMView1.SelectedImage, ImageEnVect1.IEBitmap);
  ImageEnMView1.UpdateImage(ImageEnMView1.SelectedImage);
end;

procedure TForm1.Clear1Click(Sender: TObject);
begin
  ImageEnMView1.Clear;
  ImageEnVect1.Clear;
end;