StringList - não permitir duplicados

#1 Não permitir duplicados

var

  L: TStringList;

  I: Integer;

begin

  L:= TStringList.Create;

  L.Sorted     := True;

  L.Duplicates := dupIgnore;  // serão ignorados

  L.Add('A');

  L.Add('B');

  L.Add('C');

  L.Add('A');

  L.Add('B');

  for I := 0 to L.Count - 1 do

    Caption := Caption + ' ' + L[I];  // aparece 'A B C'

  L.Free;

end;

# 2 Forma alternativa de entrar dados

var

  L: TStringList;

  I: Integer;

begin

  L:= TStringList.Create;

  L.DelimitedText := 'Fusca Fiat147 Corcel Opala Passat';

  for I := 0 to L.Count - 1 do // count = 5!

    Caption := Caption + ',' + L[I];

  L.Free;

end;