FindFirstElement Example for Delphi

var
   nRet: Integer;
begin
   //Find the first image element and display it
   LEADDicomDS1.EnableMethodErrors:= True;

   //move to first element in Data Set
   LEADDicomDS1.MoveFirstElement (False);

   nRet:= LEADDicomDS1.FindFirstElement (TAG_PIXEL_DATA, False);
   //find each image
   while (nRet = 0) do
   begin
      LEADDicomDS1.GetBitmapValue (0, 0, ORDER_RGB, 0);
      LEADRasterView1.Raster.Bitmap:= LEADDicomDS1.Bitmap;
      LEADDicomDS1.Bitmap:= 0;
      LEADDicomDS1.FindTag (LEADDicomDS1.DefaultInterface.Get_CurrentElement ().Tag);
      ShowMessage('Element: ' + LEADDicomDS1.DefaultInterface.Get_CurrentTag().Name);
      nRet:= LEADDicomDS1.FindNextElement(False);      
   end;
   ShowMessage('No More Images');   
end;