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

...

myList.Duplicates:=dupError;
myList.Sorted:=True;
myList.Add(Edit1.Text);
ListBox1.Clear;

 try
        ListBox1.Items.Add(myList.CommaText);
 except
        on EStringListError do ShowMessage('Fehler');
  end;

...					

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

procedure TForm1.Button1Click(Sender: TObject);
var ts:tstringlist;
begin
   ts:=TStringList.Create;
   ts.Sorted:=True;
   ts.Duplicates:=dupError;
   try
      ts.add('a');
      ts.add('a');
   except
      on e:EStringListError do begin
         ShowMessage('es sind doppelte da..');
      end;
      on e:Exception do begin
         ShowMessage('Irgendwas lief hier nicht richtig: '+e.Message);
      end;
   end;
   ts.free;
end;