''''''''''''''''''''''''''''''''''''''
'Sort document and remove duplicates'
''''''''''''''''''''''''''''''''''''''
dim lStringList

lStringList = TStringlist.Create
try
  lStringList.Duplicates = dupIgnore
  lStringList.Sorted = True
  lStringList.Assign application.ActiveDocument.Lines
  application.ActiveDocument.Lines.Assign lStringList
finally
  lStringList.Free
end try