var
  iBitDepth: Integer;
  idim: Integer;
  iMemorySize: string;
  iOriginalHeight: Integer;
  iOriginalWidth: Integer;

with ImageEnVect.IO.Params do
begin
  iOriginalHeight := OriginalWidth;
  iOriginalWidth := OriginalHeight;
  idim := (((iOriginalHeight * iBitDepth) + 31) div 32) * 4 * iOriginalWidth;
  // only one frame is calculated
  iMemorySize := iMemorySize + string(IEBytesToStr(idim, 1024)) + ' (' + iemsg(IEMSG_MEM) + ')';
  StatusBar1.Panels[15].Text := 'Memory: ' + iMemorySize;
end;

ImageEnVect.IO.LoadFromFile(iFilename);
if ImageEnVect.IO.Aborting then
begin
  iNotification := NotificationCenter1.CreateNotification;
  try
    iNotification.Name := 'ErrorNotification';
    iNotification.Title := 'Error Opening Image';
    iNotification.AlertBody := 'There was an error opening the image.  The image can not be opened.';
    NotificationCenter1.PresentNotification(iNotification);
  finally
      iNotification.Free;
  end;
  Exit;
end;