StringList - nao aceitando duplicados

Lista: TStringList

  Lista.Duplicates := dupIgnore;

  Lista.Duplicates := dupAccept;