Wałkowanie Listview

jak moge np. obliczyć wszystkie wartości w listview np. z kolumny 3
pozdrawiam

procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
Wynik : Integer;
begin
Wynik := 0;
for I := 0 to ListView1.Items.Count -1 do begin
Wynik := Wynik + StrToInt(ListView1.Items.Item[I].SubItems[2]);
end;
Label1.Caption := IntToStr(Wynik);
end;--Pozdrawiam {hello}
Tomasz K.

przed implementation
var
KosztPolaczen: Extended;

------- PROCEDURA -----
var
TotalSpend: TDateTime;
I:Integer;

for I:=0 to ListView.Items.Count - 1 do
KosztPolaczen := KosztPolaczen + StrToFloat(ListView1.Items.Item[I].SubItems[2]);

Edit1.Text := FloatToStr(KosztPolaczen) + ' zł ';

mam nadzieje ze pomoglem
--[ Delphi... i wszystko jasne ]