SetCommandSet (DICOM Control) Example for Delphi

   //we have received a data message
   //copy the Command Set so we can examine its elements
   LEADDicomDS1.SetCommandSet(hDicomCS);
   LEADDicomDS1.FindFirstElement (TAG_COMMAND_FIELD, False);
   LEADDicomDS1.GetShortValue (0, 1);
   ShowMessage('Command Field = 0x' + IntToStr(LEADDicomDS1.ShortValues [0]));