Listenindex überschreitet das Maximum

[arne99]

Jetzt habe ich komplett alle Abfragen so gemacht:

Delphi-Quellcode:

 try
         vle2.InsertRow('Database-Type',listview1.Selected.SubItems[5],true);
            except  vle2.InsertRow('Database-Type','',true);
            end;

Jedoch kommt immer noch die Fehlermeldung! Was mache ich falsch?

Also er erkennt schon, dass dort nix ist (geprüft mit MSGBOX ausgabe), aber die Fehlerausgabe ist immer noch vorhanden.