procedure TForm1.Thumbnail1Click(Sender: TObject);
{ Create a thumbnail of a specific size with all objects in a
  TImageEnVect and display the thumbnail in another TImageEnVect. }
var
  iIEBitmap: TIEBitmap;
begin
  iIEBitmap := TIEBitmap.Create(ImageEnVect1.IEBitmap);
  try
    { Draw all vectorial objects on the specified TImageEnVect to a bitmap }
    ImageEnVect1.DrawObjectsToBitmap(iIEBitmap, True, True);
    { Convert the bitmap to a thumbnail of a specified size with a white border and a shadow, both of which are optional - iexhelperfunctions}
    iIEBitmap.IEConvertToThumbnail(240, 120, true, rfNone, True, clWhite, True, 4, 4, clblack, clWhite);
    { Assign the new bitmap to ImageEnVect2 }
    ImageEnVect2.IEBitmap.Assign(iIEBitmap);
    ImageEnVect2.Update;
  finally
     iIEBitmap.Free;
  end;
end;