Delete duplicates from list

[WojTec]

Delphi-Quellcode:

var
  S: string;
  I: Integer;
begin
  for S in List do
  begin
    I := List.IndexOf(S);
    while I = -1 do
    begin
      List.Delete(I);
      I := List.IndexOf(S);
    end;
  end;
end;

...but nothing happen after this. List is TStrings. F1