DeleteBitmapValue Example for Delphi

begin
   LEADDicom1.EnableMethodErrors := false;

   { move to the first image element }
   LEADDicom1.FindFirstElement(TAG_PIXEL_DATA, false);

   { get the first image }
   LEADDicom1.GetBitmapValue(0, 0, ORDER_BGR);
   LEADImage1.Bitmap := LEADDicom1.Bitmap;

   { flip the image }
   LEADImage1.Flip ();
   { delete the first image from the dataset }
   LEADDicom1.DeleteBitmapValue(0, 1);

   { now update the list with the flipped image }
   LEADDicom1.InsertBitmapValue(LEADImage1.Bitmap, 0, DICOM_IMAGE_COMPRESSION_NONE, DICOM_IMAGE_PHOTOMETRIC_RGB, 0, 0);
end;