Doppelte Einträge entfernen?

[smart]

Ich habe folgendes mal versucht:

Delphi-Quellcode:

sl := TStringList.Create;
       try
          For Z := 0 To Memo.Lines.Count -1 do
              begin
                   with sl do
                       begin
                             Sorted := True;
                             Duplicates := dupIgnore;
                             Add(Memo.Lines[Z]);
                        end;
                  Memo.Lines.Assign(sl);
               end;
           finally
           sl.Free;
          end;

Klappt aber nicht. Wohl ein Denkfehler!