Vielleicht solltest du auch diese Zeilen noch absichern
Delphi-Quellcode:
kostenwartungall1 := strtofloat(geswartungall.Text);
kostenverbrauchall1 := strtofloat(gesverbrauchall.Text);
so:
Delphi-Quellcode:
try
kostenwartungall1 := strtofloat(geswartungall.Text);
except
kostenwartungall1 := 0;
end;
und analog für 2. Term