In den ListView SubItems Beträge addieren

[Gehstock]

Ich häng mich mal rein weil ich ein Ähnliches Problem Hab

ich Habe im Listview bei Items[0] die Checkboxen
in Items[2] einen Preis

wenn ich die Checkboxen aktiviere dann soll in einem Editfeld die preise Addiert werden


ich versuch das grad so

Delphi-Quellcode:

procedure TForm4.ListView1Click(Sender: TObject);
begin
if Listview1.Items[0].Checked then
   Edit1.Text := InttoStr(StrtoInt(Edit1.Text) + StrtoInt(Listview1.items[2].Caption))
    else
     Edit1.Text := InttoStr(StrtoInt(Edit1.Text) - StrtoInt(Listview1.items[2].Caption));
end;