Zum Unterschied kannst Du die Hilfe bemühen
.Und zu der Fehlermeldung: ändere die Zeile
inc(gesamt, StrToFloat(ListView1.Items[i].SubItems[0]));
mal ab in
gesamt := gesamt + StrToFloat(ListView1.Items[i].SubItems[0]);
Oder eben TryStrToFloat *gg*
[edit] Mal wieder zu spät
[/edit]