ie:= TImageEnVect.Create(nil);
  try
    ImageEnVect1.AssignSelTo(ie);
    ie.IEBitmap.Height:= ie.IEBitmap.Height + 200; // All Good so far
    ie.ObjKind[IEV_NEXT_INSERTED_OBJECT]:= iekMemo;
    ie.ObjText[IEV_NEXT_INSERTED_OBJECT]:= Memo1.Text;
    ie.AddNewObject();
    ie.AlphaChannel.Fill(0);
    ie.CopyObjectsToBack(true, true);
    ie.RemoveAllObjects();
    ie.Update;
    ie.IO.DoPrintPreviewDialog(iedtMaxi);
  finally
    ie.Free();
  end;

  ImageEnVect1.Proc.SaveUndo();
  ImageEnVect1.CopyObjectsToBack(True, True);
  ImageEnVect1.SelectionBase:= iesbClientArea;
  ImageEnVect1.Select(0, 0, ImageEnVect1.ExtentX, ImageEnVect1.ExtentY);
  ie:= TImageEnVect.Create(nil);
  try
    ImageEnVect1.AssignSelTo(ie);
    h:= ie.IEBitmap.Height;
    w:= ie.IEBitmap.Width;
    ie.IEBitmap.Height:= h + 245;
    ie.ObjKind[IEV_NEXT_INSERTED_OBJECT]:= iekMemo;
    ie.ObjLeft[IEV_NEXT_INSERTED_OBJECT]:= 5;
    ie.ObjTop[IEV_NEXT_INSERTED_OBJECT]:= h+10;
    ie.ObjWidth[IEV_NEXT_INSERTED_OBJECT]:= w-10;
    ie.ObjHeight[IEV_NEXT_INSERTED_OBJECT]:= 233;
    ie.ObjPenColor[IEV_NEXT_INSERTED_OBJECT]:= clBlack;
    ie.ObjFontHeight[IEV_NEXT_INSERTED_OBJECT]:= 8;
    ie.ObjAntialias:= False;
    ie.ObjText[IEV_NEXT_INSERTED_OBJECT]:= Memo1.Text;
    ie.AddNewObject();
    ie.CopyObjectsToBack(False, False);
    ie.RemoveAllObjects();
    ie.Update;
    ie.IO.DoPrintPreviewDialog(iedtMaxi);
  finally
    ie.Free();
  end;
  ImageEnVect1.Proc.Undo();
  ImageEnVect1.Proc.ClearUndo;
  ImageEnVect1.DeSelect;