Нужна помощь!

[Teodor_Bagwell]

Уважаемые посетители данного портала, соображающие в Delphi, подскажите, как решить следующую задачу:
- Необходимо поставь запрет на ввод букв латинского и русского алфавита в поле "Edit", чтобы можно было вводить только цифры. Заранее благодарен!
С наилучшими пожеланиями, Teodor.

[Lynx]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if not((key in ['0'..'9'])or(key = #8)) then
      key := #0;
end;

[Teodor_Bagwell]

Выдаёт ошибку в строке - procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
Код выглядит так:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ImgList;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
procedure FormActivate(Sender: TObject);
procedure Edit1Change(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
var
st:string;
dec:byte;
i,j:integer;
begin
st:='';
dec:=192;
for i:=0 to 15 do
begin
dec:=i+192;
for j:= 1 to 4 do
begin
st:=st+chr(dec)+'-'+inttostr(dec)+' ';
dec:=dec+16;
end;
st:=st+#13; end;
Label1.Caption:=st;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not((key in ['0'..'9'])or(key = #8)) then
key := #0;
end;
end;
end.

[Teodor_Bagwell]

Всё заработало! Сам затупил! Спасибо!

[Romanus]

////
Выдаёт ошибку в строке - procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
////

А объявлять кто будет обработчик в классе TForm1.

Я тебе рекомендую воспользоваться компонентом TUpDown прикручиваешь его к едиту и в нем можно будет ввести только числа.

[Teodor_Bagwell]

Romanus, я полный ламер в этом Делфи Мне что-нибудь попроще, а лучше готовый скрипт, дабы я не разбирал такие понятия, как "прикручивать к Edit", ибо мне это мало чего даёт Спасибо за отклик и совет!

[mihali4]

TUpDown прикручиваешь его к едиту

А зачем его "прикручивать"? Его надо просто вместо эдита использовать...
Только не TUpDown, а ТSpinEdit.