Zeile 1:
Zitat:
V:= StrToFloat(edit1.text)/1000;
Etwa 20 Zeilen später:
Zitat:
if not TryStrToFloat(edit1.Text, V) then begin showmessage('Werte für Volumenstrom und Länge eingeben!');
Also erst einmal fröhlich zuweisen und erst viel später prüfen, ob das überhaupt geht? Schau Dir doch mein Beispiel noch einmal an.