///////////////////////////////////////
//Sort document and remove duplicates//
///////////////////////////////////////
var
  lStringList;
begin
  lStringList := TStringlist.Create;
  try
    lStringList.Duplicates := dupIgnore;
    lStringList.Sorted := True;
    lStringList.Assign(application.ActiveDocument.Lines);
    application.ActiveDocument.Lines.Assign(lStringList);
  finally
    lStringList.Free;
  end;
end;