TListViewに重複項目を出さないようにするにはどうすればいいですか？

procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
var
i:integer;
begin
for i:=ListView1.Items.Count-1 downto 0 do
if ListView1.Items[i]=ListView1.Items[i+1] then
ListView1.Items[i+1].Delete;
end;

ソートしてやってみてもダメだったぽ(´･ω･｀)
できればSubItemの重複でできるようにお願いします。