io farei alcuni passi indietro.
1) il tuo campo edit "cinque" può avere in input solo numeri?
--se la risposta è si inizia con il castrare tutti gli altri caratteri
2) Di solito si usa trimmare, ossia togliere gli spazi, dunque la tua if diventa:
if Trim(cinque.Text)='' then ......
3) esiste la funzione strtofloatdef, che vuole il tipo extended e data una stringa in ingresso e un valore di default in caso di errore hai come ritorno un default dunque
var A5: Extended;
...
A5:= StrToFloatDef(Cinque.text, 0);
...
G.
Ibis redibis non morieris in bello |