Edit-Ínhalte kumulieren

[Privateer3000]

auch wenns euch nervt:
ich habs...bin stolz auf mich

Code:

procedure TForm1.Timer35Timer(Sender: TObject);
var
x: integer;
Anzahl: currency;
begin
Anzahlsicht:=0;
puff:=0;
for x:= 1 to 34 do
begin
Anzahl:=StrToFloat(TEdit(FindComponent('Edit'+IntToStr(x))).Text);
if Anzahl <> StrToFloat('0,00') then
inc(Anzahlsicht);
Anzahllabel.Caption:=IntToStr(Anzahlsicht);
puff:=puff+StrToFloat(TEdit(FindComponent('Edit'+IntToStr(x))).text);
if Anzahlsicht <> 0 then
Durch:=puff/Anzahlsicht
else
Durch:=puff;
sumedit.text:=FloatToStrF(Durch, ffCurrency, 3, 2);
end;
end;