StringList - doppelte Einträge vermeiden

[Gambit]

Hallo,

folgender Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
    aList.Add(OpenPictureDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
s    : String;
begin
  for i:= 0 to aList.Count-1 do
    s:= s+aList.Strings[i]+#10#13;
  showMessage(s);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  aList:= TStringList.Create;
  aList.Duplicates:= dupIgnore;
end;

durch das setzen der Property aList.Duplicates:= dupIgnore soll eigentlich das Einfügen von bereits vorhandenen Strings vermieden werden. Funzt aber nicht. Was ist falsch?

Gruß

Gambit