MoveFirstUID Example for Delphi

    LEADDicomDS1.EnableMethodErrors:= True;

    LEADDicomDS1.MoveFirstUID ();
    //display the items information
    Edit1.Text:= LEADDicomDS1.DefaultInterface.Get_CurrentUID().Code;
    Edit2.Text:= LEADDicomDS1.DefaultInterface.Get_CurrentUID().Name;
    ShowMessage('wait');

    LEADDicomDS1.MoveNextUID;
    //display the items information
    Edit1.Text:= LEADDicomDS1.DefaultInterface.Get_CurrentUID().Code;
    Edit2.Text:= LEADDicomDS1.DefaultInterface.Get_CurrentUID().Name;
    ShowMessage('wait');

    LEADDicomDS1.MoveLastUID;
    //display the items information
    Edit1.Text:= LEADDicomDS1.DefaultInterface.Get_CurrentUID().Code;
    Edit2.Text:= LEADDicomDS1.DefaultInterface.Get_CurrentUID().Name;
    ShowMessage('wait');

    LEADDicomDS1.MovePrevUID;
    //display the items information
    Edit1.Text:= LEADDicomDS1.DefaultInterface.Get_CurrentUID().Code;
    Edit2.Text:= LEADDicomDS1.DefaultInterface.Get_CurrentUID().Name;
    ShowMessage('wait');