SetCurrentElement Example for Delphi

var
   nCount: Integer;
begin
   LEADDicomDS1.EnableMethodErrors:= False;
   //get total number of images in this Data Set
   LEADDicomDS1.SetCurrentElement (0);
   nCount:= LEADDicomDS1.GetBitmapCount ();
   ShowMessage('Total: ' + IntToStr(nCount));
   //move to last image tag in the Data Set
   LEADDicomDS1.FindLastElement (TAG_PIXEL_DATA, False);
   //get total number of images in this tag
   nCount:= LEADDicomDS1.GetBitmapCount ();
   ShowMessage('This tag: ' + IntToStr(nCount));
end;