Hola Seb@, puedes utilizar la función TryStrToFloat, que te devuelve True si la cadena que le pasas se ha podido convertir a Float.
Código Delphi
[-]
var
valor : Double;
begin
if TryStrToFloat(Edit1.Text,valor) then
showmessage('el valor es correcto')
else
showmessage('el valor es incorrecto');
y lo colocas en el lugar que lo necesites.
Saluditos