{Uses iexHelperFunctions}
procedure TForm1.Save1Click(Sender: TObject);
var
  iBitmap: TBitmap;
begin
  if SavePictureDialog1.Execute then
  begin
    if ImageEnView1.Selected then
    begin
      iBitmap := TBitmap.Create;
      try
        ImageEnView1.CopySelectionToBitmap(iBitmap, False);
        iBitmap.IESaveToFile(SavePictureDialog1.FileName, 100);
      finally
        iBitmap.Free;
      end;
    end
    else
      ImageEnView1.IO.SaveToFile(SavePictureDialog1.FileName);
  end;
end;