Erstens: Hier wird nicht innerhalb von 24 Stunden gepusht.
Zweitens: Schreibe, was nicht funktioniert. Sonst wirst du hier vermutlich keine Hilfe erhalten.
Die von dir genannte Meldung bzgl. des überschrittenen Maximums kommt daher, dass du deine Schleife nicht von 0 bis Anzahl - 1 laufen lässt. Zumindest vermute ich das. Deinen Quelltext habe ich mir nicht angesehen.
Grob müsste es so gehen:
Delphi-Quellcode:
Notensumme := 0;
for i := 0 to AnzahlSchueler - 1 do
begin
Notensumme := Notensumme + StrToFloat(ListView.Items[i].SubItems[SpaltenIndex]);
end;
Durchschnitt := Notensumme / AnzahlSchueler;