Hola Daniel.
Acabo de mirar el video, fijate que la constante
MAXITEM es un valor arbitrario que usé solo para el ejemplo.
En el video que mostras intenta recorrer diez items cuando sólo hay dos ingresados, deberías usar:
Código Delphi
[-]
var
i: Integer;
total: Double;
li: TListItem;
begin
total:= 0;
for i:= 0 to ListView1.Items.Count-1 do begin
li:= ListView1.Items.Item[i];
total:= total + StrToFloat(li.SubItems[ListView1.Columns.Count-2]);
end;
ShowMessage(FormatFloat('0.00', total));
end;
Saludos