procedure TForm1.Button1Click(Sender: TObject);
var
  myfloat: double;
begin
  if TryStrToFloat(Edit1.Text,myfloat) then
    DataModule.tbTableNumber.Value := myfloat
  else
    ShowMessage('Incorrect value.');
end;

我不认为使用try是特别“干净”的.除非错误是微不足道的,事实上,正如预期的那样,就像在这种情况下一样.