// Read the Photoshop description of the selected image
if ImageEnMView1.SelectedImage >= 0 then
begin
  ImageEnMView1.EnsureImageLoaded( ImageEnMView1.SelectedImage );
  StatusBar.Text [ 1 ] := ImageEnMView1.MIO.Params[ ImageEnMView1.SelectedImage ].ReadIPTCField(PhotoShop_IPTC_Records, IPTC_PS_Caption);
end;

var
  iImageEnVect: TImageEnVect;
  iObjectCount: Integer;
begin
  { Display the object count in the statusbar. }
  iImageEnVect := TImageEnVect.Create(nil);
  try
    ImageEnMView1.MIO.Params[idx].ImageEnAnnot.CopyToTImageEnVect
      (iImageEnVect);
    iObjectCount := iImageEnVect.ObjectsCount;
    StatusBar1.Panels[5].Text := 'Objects: ' + IntToStr(iObjectCount);
  finally
    iImageEnVect.Free;
  end;
end;

procedure TForm1.ImageEnMView1ImageSelect(Sender: TObject; idx: Integer);
begin
  if ImageEnMView1.SelectedImage > -1 then
  begin
    { Clear }
    ImageEnVect1.RemoveAllObjects;
    ImageEnVect1.Clear;

    { Copy the selected IEBitmap to the background of ImageEnVect }
    ImageEnMView1.CopyToIEBitmap(idx, ImageEnVect1.IEBitmap);

    { Copy the annotations from ImageEnMView to ImageEnVect }
    if ImageEnMView1.MIO.Params[idx].ImageEnAnnot.IsEmpty = False then
    begin
      ImageEnMView1.MIO.Params[idx].ImageEnAnnot.CopyToTImageEnVect
        (ImageEnVect1);
      { Display the object count in the statusbar.  If ImagingAnnot.ObjectsCount is 0 then
        get the object count from ImageEnVect }
      if ImageEnMView1.MIO.Params[idx].ImagingAnnot.ObjectsCount <> 0 then
        StatusBar1.Panels[5].Text := 'Objects: ' +
          IntToStr(ImageEnMView1.MIO.Params[idx].ImagingAnnot.ObjectsCount)
      else if ImageEnMView1.MIO.Params[idx].ImagingAnnot.ObjectsCount = 0 then
      begin
          MessageDlg
            (PChar('ImageEnMView1.MIO.Params[idx].ImagingAnnot.ObjectsCount is 0. '
            + 'Getting the object count from ImageEnVect instead.'), mtWarning,
            [mbOK], 0);
        StatusBar1.Panels[5].Text := 'Objects: ' +
          IntToStr(ImageEnVect1.ObjectsCount);
      end;
    end;

    { Refresh the TImageEnVect }
    ImageEnVect1.Update;

    StatusBar1.Panels[3].Text := 'Frame: ' +
      IntToStr(ImageEnMView1.SelectedImage + 1);
  end;
end;