program MediLinkEscapingAcks; var i: Integer; begin for i := HL7Data.SegmentCount-1 downto 0 do begin if HL7Data.Segmentname[i] = 'MSA' then begin if HL7Data.GetFieldvalue(i, 1, 0, 1, 1) = 'AE' then begin HL7Data.DeleteSegment(i); HL7Data.InsertSegment(i, 'MSA'); HL7Data.SetFieldValue('AE', i, 1, 0, 1, 1); end; end; if HL7Data.Segmentname[i] = 'ERR' then begin HL7Data.DeleteSegment(i); end; end; end.