3e Spalte Listview auf doppelte Eintraege kontrollieren?

[lucius]

Habe jetzt folgenden Code aber der klappt noch nicht so ganz.

Delphi-Quellcode:

procedure TMain.DoppeltClick(Sender: TObject);
var
D1, D2: integer;
begin
while D1 < listview.Items.Count do
begin
  for D2 := (listview.Items.Count - 1) downto 0 do
  begin
    if (listview.Items.item[D1].SubItems[2] = listview.Items.item[D2].SubItems[2]) then
      listview.Items[D2].Delete;
  end;
  inc(D1);
end;
end;

Gruss Lucius.