In den ListView SubItems Beträge addieren

[Gehstock]

Delphi-Quellcode:

procedure TForm4.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
var
i: integer;
gesamt : Extended;
begin
 gesamt := 5.99 ; // Grundpreis
  for i := 0 to ListView1.Items.Count - 1 do
   if Listview1.Items[i].Checked then
      gesamt := gesamt + StrToFloat(ListView1.Items[i].SubItems[1]);
       if gesamt = 5.99 then gesamt := 0; wenn nichts gewählt auch kein grundpreis
      Edit1.Text := FloatToStr(gesamt);
end;

habs selbst erledigt