利用属性Duplicates来做避免：
 

var
  sl : TStringList;
begin
  sl := TStringList.Create;
  with sl do
  begin
    Sorted     := True;
    Duplicates := dupIgnore;

    //
    // 在这里添加 items，所有雷同的会忽略
    //
    Add(Input1.text);
  end;

  ListBox1.Items.Assign(sl);
  sl.Free;
end;
(编辑:aniston)