Statusbar

[mc_flasche]

Ja klar die Daten kommen auch aus der Datenbank und die hab ich auch schon eingelesen es geht jetzt nur noch darum die Anzahl der Weiblichen/Männlichen und Schüler Gesamt die im Listview stehen in der Statusbar anzuzeigen.

Mein bisheriger Code sieht so aus jedoch geht es noch nicht da immer steht Listenindex überschreitet das Maximum (o)

Maennlich := 0;

Weiblich := 0;

gesamt:= lv_Personen.Items.count;

for i := 0 to lv_Personen.Items.Count - 1 do begin

if lv_Personen.Items[i].subitems[0] = 'M' then
Inc(Maennlich);
if lv_Personen.Items[i].subitems[1] = 'W' then
Inc(Weiblich);

end;


StatusBar1.Panels[0].Text := 'Gesamt ' + inttostr(gesamt);
StatusBar1.Panels[1].Text := 'Männlich ' + inttostr(maennlich);
StatusBar1.Panels[2].Text := 'Weiblich ' + inttostr(weiblich);

end;

Bitte um Hilfe ...