[ecfisa]

Hola.

Para este caso en especial, otra forma puede ser:

Código Delphi [-]
var
  v: Double;
begin
  if TryStrToFloat(Edit1.Text, v) then
    with ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('UPDATE TABLA');
      SQL.Add('SET TA_VALOR = :VALOR');
      Parameters.ParamByName('VALOR').Value:= Edit1.Text;
      ExecSQL;
    end
  else
    raise Exception.Create('El valor ingresado no es un numero válido');
end;

Aunque siempre utilizo try/except como suguiere microbiano.

Saludos.