MoveRootIOD Example for Delphi

LEADDicom1.EnableMethodErrors := true;
try
   { Move to the last IOD in the list }
   LEADDicom1.MoveLastIOD(false);
   ShowMessage(LEADDicom1.CurrentIOD.Name);

   { Move to the Root IOD at the same level}
   LEADDicom1.MoveRootIOD();
   ShowMessage(LEADDicom1.CurrentIOD.Name);

   { Move to the first Child IOD }
   LEADDicom1.MoveChildIOD();
   ShowMessage(LEADDicom1.CurrentIOD.Name);

   { Move back to the Parent IOD }
   LEADDicom1.MoveParentIOD();
   ShowMessage(LEADDicom1.CurrentIOD.Name);
except
   ShowMessage('Error Number: ' + IntToStr(LEADDicom1.Error));
end;