Listbox <-> Listenindex überschreitet das maximum

[Daradon]

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var
  help : Integer;
  list,prefix : TStringList;
begin
list := TStringList.Create;
prefix := TStringList.create;

//ShowMessage(IntToStr(ValueListEditor1.RowCount));

if  help  = 0 then
begin
ValueListEditor1.InsertRow('Titel:','',true);
ValueListEditor1.InsertRow('Speicher1:','',true);
ValueListEditor1.InsertRow('Speicher2:','',true);
ValueListEditor1.InsertRow('Speicher3:','',true);
ValueListEditor1.InsertRow('Text:','',true);
ValueListEditor1.InsertRow('Url:','',true);
ValueListEditor1.InsertRow('Username:','',true);
ValueListEditor1.InsertRow('Passwort:','',true);
help := 1
end
  else
    begin
      List := GetContentByRange(listbox1.Items[Listbox1.itemindex]);
      ValueListEditor1.Values['Titel:']:=GetPureStr(List[0]);
      ValueListEditor1.Values['Speicher1:']:=GetPureStr(List[1]);
      ValueListEditor1.Values['Speicher2:']:=GetPureStr(List[2]);
      ValueListEditor1.Values['Speicher3:']:=GetPureStr(List[3]);
      ValueListEditor1.Values['Text:']:=GetPureStr(List[4]);
      ValueListEditor1.Values['Url:']:=GetPureStr(List[5]);
      ValueListEditor1.Values['Username:']:=GetPureStr(List[6]);
      ValueListEditor1.Values['Passwort:']:=GetPureStr(List[7]);
      end;
end;

also .. die listbox is eine übersichtsliste von einträgen die sha1 verschlüsselt in einer datei liegen, klickt man nun auf einen eintrag , holt sich die box die daten aus der datei und übergibt sie in einen valuelisteditor. Nun .. wenn ich jetzt z.b 4 einträge drinnen habe .. und auf den leeren teil der liste klicke kommt natürlich sofort der fehler (was mir auch absolut klar ist warum). Nun ist es aber nervig wenn das dem benutzer dauernt passiert, deswegen suche ich nach einer möglichkeit das nur einträge angeklickt werden können und nicht die ganze komponente anklickbar ist.

Hoffe ihr versteht mich jetzt


p.s:

Zitat:

"Herzlich Willkommen in der Delphi-PRAXIS".

danke