MoveFirstUID Example for Delphi

   LEADDicom1.EnableMethodErrors := true;
   LEADDicom1.MoveFirstUID();
   { display the items information }
   Memo1.Lines.Add(LEADDicom1.CurrentUID.Code + #9 + LEADDicom1.CurrentUID.Name + #9 + IntToStr ( LEADDicom1.CurrentUID.nType));

   LEADDicom1.MoveNextUID();
   { display the items information }
   Memo1.Lines.Add(LEADDicom1.CurrentUID.Code + #9 + LEADDicom1.CurrentUID.Name + #9 + IntToStr ( LEADDicom1.CurrentUID.nType));

   LEADDicom1.MoveLastUID();
   { display the items information }
   Memo1.Lines.Add(LEADDicom1.CurrentUID.Code + #9 + LEADDicom1.CurrentUID.Name + #9 + IntToStr ( LEADDicom1.CurrentUID.nType));

   LEADDicom1.MovePrevUID();
   { display the items information }
   Memo1.Lines.Add(LEADDicom1.CurrentUID.Code + #9 + LEADDicom1.CurrentUID.Name + #9 + IntToStr ( LEADDicom1.CurrentUID.nType));