MoveFirstIOD Example for Delphi

var
   hIOD: THandle;
begin
   LEADDicom1.EnableMethodErrors := true;
   try
      { Move to the First IOD in the list }
      LEADDicom1.MoveFirstIOD(false);
      hIOD := LEADDicom1.CurrentIOD.hIOD; { store it }
      ShowMessage(LEADDicom1.CurrentIOD.Name);

      { Move to the Last IOD at this same level }
      LEADDicom1.MoveLastIOD(true);
      ShowMessage(LEADDicom1.CurrentIOD.Name);

      { Move to the Previous IOD at this same level }
      LEADDicom1.MovePrevIOD(true);
      ShowMessage(LEADDicom1.CurrentIOD.Name);

      { Move back to First IOD }
      LEADDicom1.SetCurrentIOD(hIOD);

      { Move to the Next IOD at this same level }
      LEADDicom1.MoveNextIOD(true);
      ShowMessage(LEADDicom1.CurrentIOD.Name);
   except
      ShowMessage('Error Number: ' + IntToStr(LEADDicom1.Error));
   end;
End;