Super Leutz ..
Habe jetzt den Code geändert in diesen hier
Delphi-Quellcode:
If ListView1.SelCount = 1 then
Begin
If ListView1.Items.Item[ListView1.ItemIndex].Selected then
ListView1.Items.Item[ListView1.ItemIndex].Delete;
End
Ich denke diese Lösung kann man stehen lassen und das Problem als gelöst markieren.
Danke nochmals