for i := 0 to ImageEnMView1.ImageCount - 1 do
begin
  bmp := ImageEnMView1.GetTIEBitmap( i );
  bmp.Resample(...);
  ImageEnMView1.ReleaseBitmap( i, True );
end;
ImageEnMView1.Update();

viewPbrOutput->Clear();
viewPbrOutput->ShowText = false;
viewPbrOutput->FillFromDirectory(shComboPbr->Path, -1, false, "", false, "png,PNG", false, false);
if (viewPbrOutput->ImageCount <= 0)
   return;
for (int i = 0; i < viewPbrOutput->ImageCount; i++)
   {
   viewPbrOutput->ObtainImageNow(i, true);
   }

TSaveDialog *svDialog = new TSaveDialog(this);
svDialog->Filter = "Pump brush (*.pbr)|*.pbr";
svDialog->DefaultExt = "pbr";
svDialog->FileName = _dataKeeper->CommonBlock->PumpBrushDir + "Untitled";
if (svDialog->Execute())
   {
   if (viewPbrOutput->ImageCount > 0)
      {
      //NOTE: I've added these two lines befor saving snapshot  
      for (int i = 0; i < viewPbrOutput->ImageCount; i++)
	   viewPbrOutput->ObtainImageNow(i, true);
      TIESaveSnapshotOptions opt = TIESaveSnapshotOptions()<<iessoCompressed;
      viewPbrOutput->IEMBitmap->SaveSnapshot(svDialog->FileName, opt);
      }
   }
delete svDialog;