3e Spalte Listview auf doppelte Eintraege kontrollieren?

[lucius]

Hallo Leute,

Ich moechte von meiner Listview die 3e Spalte kontrollieren auf doppelte Eintraege, hab auch schon etwas Code aber ich kom nicht weiter.

Delphi-Quellcode:

procedure TMain.DoppeltClick(Sender: TObject);
var
k : integer;
begin
for k := listview.Items.Count -1 downto 0 do
      begin
          if listview.Items.IndexOf(listview.Items.Item[k].SubItems[2]) <> k then
          listview.Items[k].Delete;
      end;
end;

Kann mir jrmand bitte helfen?
Besten Dank im voraus.

MFG, Lucius.