MoveFirstTag Example for Delphi

Procedure TForm1.DisplayItem();
var
   strItem: String;
   strItemL: String;
   strItemR: String;
   nLen: Integer;
   x: Integer;
begin
   LEADDicomDS1.EnableMethodErrors:= True;
   strItem:= IntToStr(LEADDicomDS1.DefaultInterface.Get_CurrentTag().Code);
   nLen:= Length(strItem);
   strItemR:= RightStr(strItem, 4);
   strItemL:= '';
   for x:= nLen to 7 do
      strItemL:= strItemL + IntToStr(0);

   strItemL:= strItemL + LeftStr(strItem, nLen - 4);
   Edit1.Text:= strItemL + ':' + strItemR;

   strItem:= IntToStr(LEADDicomDS1.DefaultInterface.Get_CurrentTag().Mask);
   nLen:= Length(strItem);
   strItemR:= RightStr(strItem, 4);
   strItemL:= '';
   for x:= nLen to 7 do
      strItemL:= strItemL + IntToStr(0);

   strItemL:= strItemL + LeftStr(strItem, nLen - 4);
   Edit2.Text:= strItemL + ':' + strItemR;

   Edit3.Text:= LEADDicomDS1.DefaultInterface.Get_CurrentTag().Name;

   Case (LEADDicomDS1.DefaultInterface.Get_CurrentTag().VR) of
      VR_AE:
         Edit4.Text:= 'AE';

      VR_AS:
         Edit4.Text:= 'AS';

      VR_AT:
         Edit4.Text:= 'AT';

      VR_CS:
         Edit4.Text:= 'CS';

      VR_DA:
         Edit4.Text:= 'DA';

      VR_DS:
         Edit4.Text:= 'DS';

      VR_DT:
         Edit4.Text:= 'DT';

      VR_FD:
         Edit4.Text:= 'FD';

      VR_FL:
         Edit4.Text:= 'FL';

      VR_IS:
         Edit4.Text:= 'IS';

      VR_LO:
         Edit4.Text:= 'LO';

      VR_LT:
         Edit4.Text:= 'LT';

      VR_OB:
         Edit4.Text:= 'OB';

      VR_OW:
         Edit4.Text:= 'OW';

      VR_PN:
         Edit4.Text:= 'PN';

      VR_SH:
         Edit4.Text:= 'SH';

      VR_SL:
         Edit4.Text:= 'SL';

      VR_SQ:
         Edit4.Text:= 'SQ';

      VR_SS:
         Edit4.Text:= 'SS';

      VR_ST:
         Edit4.Text:= 'ST';

      VR_TM:
         Edit4.Text:= 'TM';

      VR_UI:
         Edit4.Text:= 'UI';

      VR_UL:
         Edit4.Text:= 'UL';

      VR_UN:
         Edit4.Text:= 'UN';

      VR_US:
         Edit4.Text:= 'US';

      VR_UT:
         Edit4.Text:= 'UT';

      else
         Edit4.Text:= IntToStr(LEADDicomDS1.DefaultInterface.Get_CurrentTag().VR);
   end;

   Edit5.Text:= IntToStr(LEADDicomDS1.DefaultInterface.Get_CurrentTag().MinVM);
   Edit6.Text:= IntToStr(LEADDicomDS1.DefaultInterface.Get_CurrentTag().MaxVM);
   Edit7.Text:= IntToStr(LEADDicomDS1.DefaultInterface.Get_CurrentTag().DivideVM);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    LEADDicomDS1.EnableMethodErrors:= True;

    LEADDicomDS1.MoveFirstTag ();
    DisplayItem();
    ShowMessage('wait');

    LEADDicomDS1.MoveNextTag ();
    DisplayItem();
    ShowMessage('wait');

    LEADDicomDS1.MoveLastTag ();
    DisplayItem();
    ShowMessage('wait');

    LEADDicomDS1.MovePrevTag ();
    DisplayItem();
    ShowMessage('wait');
end;