Чи можна в Edit вводити числа?​

procedure TForm1. FormCreate(Sender: TObject);

begin

SetWindowLongPtr(Edit1. Handle, GWL_STYLE,

GetWindowLongPtr(Edit1. Handle, GWL_STYLE) or ES_NUMBER);

End;

Если необходимы только действительные числа (integer), то используйте SpinEdit.