sAE := 'treat' ;
ImageEnView1.IO.Params.DICOM_Tags.SetTagString( $0008, $0054, sAE );

ImageEnView1.io.Params.DICOM_Tags.SetTagString( $300A,$00B8,'ASYMX') ;
//......  ;Number of Leaf/Jaw Pairs;;1
ImageEnView1.io.Params.DICOM_Tags.SetTagString( $300A,$00BC,'1') ;
//......  ;RT Beam Limiting Device Type;;ASYMY
//(FFFE,E000);;Item;;
//  ImageEnView1.io.Params.DICOM_Tags.SetTagString( $300A,$00B6,' ') ;
ImageEnView1.io.Params.DICOM_Tags.SetTagString( $300A,$00B8,'ASYMY') ;
//......  ;Number of Leaf/Jaw Pairs;;1  Y
ImageEnView1.io.Params.DICOM_Tags.SetTagString( $300A,$00BC,'1') ;

//......  RT Beam Limiting Device Type;;MLCX
ImageEnView1.io.Params.DICOM_Tags.SetTagString( $300A,$00B8,'MLCX') ;

//......  ;Number of Leaf/Jaw Pairs;;40 x
ImageEnView1.io.Params.DICOM_Tags.SetTagString( $300A,$00BC,numleaf) ;
//......  Number of Leaf/Jaw Pairs
ImageEnView1.io.Params.DICOM_Tags.SetTagString( $300A,$00BE,'MLCX') ;

out  put

(300A,00B8) RT Beam Limiting Device Type (CS) : "ASYMX "
(300A,00B8) RT Beam Limiting Device Type (CS) : "MLCX"
(300A,00B8) RT Beam Limiting Device Type (CS) : "ASYMY "
(300A,00BC) Number of Leaf/Jaw Pairs (IS) : "1 "
(300A,00BC) Number of Leaf/Jaw Pairs (IS) : "41"
(300A,00BC) Number of Leaf/Jaw Pairs (IS) : "1 "

i wante correct form in deferece sequence  like the
(300A,00B8);;RT Beam Limiting Device Type;;ASYMX
(300A,00BC);;Number of Leaf/Jaw Pairs;;1
(FFFE,E000);;Item;;
(300A,00B8);;RT Beam Limiting Device Type;;ASYMY
(300A,00BC);;Number of Leaf/Jaw Pairs;;1

(300A,00B8) RT Beam Limiting Device Type (CS) : "ASYMX "
(300A,00B8) RT Beam Limiting Device Type (CS) : "MLCX"
(300A,00B8) RT Beam Limiting Device Type (CS) : "ASYMY "
(300A,00BC) Number of Leaf/Jaw Pairs (IS) : "1 "
(300A,00BC) Number of Leaf/Jaw Pairs (IS) : "40"
(300A,00BC) Number of Leaf/Jaw Pairs (IS) : "1 "
(300A,00BE) Leaf Position Boundaries (DS) : "MLCX"