Delphi - errore nel covertire

ciao a tutti sto facendo un programma in delphi e guardate:

if cinque.Text=' ' then
  ShowMessage('devi mettere un numero in tutte le caselle')
else
  A5:=strTofloat(Cinque.text);

dove le variabili sono tutte tipo real. mi dice l'errore :
it is not a floating point value.

spero che mi rispondiate ciao

se usi i real devi contvertire il resto con StrToCurr(testo)
inoltre devi stare attento perchè mi pare che il numero che ci metti nella casella di testo deve avere la virgola e non il punto e poi prova a cambiare l'istruzione IF con questa if (cinque.text = ' ' ) then o if cinque.text:=' ' then

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.