[Casimiro Noteví]

Así tienes un tryStrToFloat casero

Código Delphi [-]
Try
  StrToFloat(....)
Except
End;