1:
2:
3:
4:
5:
6:
7:

 tt := TStringList.Create;
 tt.Sorted := True;
 tt.Duplicates := dupIgnore ;
 tt.AddStrings(ListBox1.Items);
 ListBox1.Items.Clear;
 Listbox1.Items.AddStrings(tt);
 tt.Free;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
var z : integer;
    s : string;
begin
with ListBox1 do
  begin
  for z := Items.Count-1 downto 0 do     //downto sonst gibt es eine Zugriffsverletzung
    begin
    s := Items[z];
    if (Items.IndexOf(s) <> -1)          //Eintrag ist enthalten
      and (Items.IndexOf(s) <> z) then   //Eintrag ist aber nicht der aktuelle
      Items.Delete(z);
    end;
  end;
end;