In den ListView SubItems Beträge addieren

[Gehstock]

Delphi-Quellcode:

procedure TForm4.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
var
i: Integer;
begin
i:=0;
//i :=Listview1.Selected.Index;
if Listview1.Items[i].Checked then
 begin
   Ergebnis := StrtoFloat(Edit1.Text) + StrtoFloat(Listview1.Items[i].SubItems[1]);
    end else
     begin
      Ergebnis := StrtoFloat(Edit1.Text) - StrtoFloat(Listview1.Items[i].SubItems[1]);
     end;
     Edit1.Text :=Floattostr(Ergebnis)
end;

die zuweisung von i klappt nicht da ja nichts selected wird also wie sag ich i das es
das 2. oder 3. item ist wenn ich in die 2. zeile klicke