Du scheinst irgendwo einen nicht initialisierten Wert zu übergeben. Du solltest auch deine Berechnungsfunktionen gegen Eingabefehler des Programmbenutzers immunisieren:
Delphi-Quellcode:
uses
Math;
function f_margeprozneu(ekneu, lvpneu: Extended): Extended;
begin
if IsZero(lvpNeu, 1/1000)
then raise Exception.Create('
lvpNeu ist verdammt nahe bei 0')
else Result := ( 1 - ( ekneu / lvpneu ) ) * 100;
end;
marabu