[dmit2222]

Сообщение от lmikle

1.

Код:

procedure TForm1.Edit1KeyPress(Sender : Tobject; var Key : Char);
begin
  If Not (Key In ['0'..'9']) Then Key := #0;
end;

Все получилось, но теперь не стирает backspace-ом. Можно ли это как-то исправить?