Как разрешить ввод только чисел? Опции

[zloy_pes]

Есть editbox - как запретить ввод символов, отличных от цифр? Точнее по нажатию на кнопку button, если в editbox'е введено не вещественное число, то появляется MessageBox.
Заранее Спасибо!

[volvo]

Кто мешает сделать так, например:

procedure TForm1.Button1Click(Sender: TObject);
var f: double;
begin
  try
    f := StrToFloat(edit1.Text);
  except
    ShowMessage('error: not a float number !!!');
  end;
end;

?