1:
2:
3:
4:
5:

procedure TNewFileForm.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0' .. '9', #8, #13, #35, #36, #37, #39]) then
    Key := #0;
end;					

1:
2:
3:
4:

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

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Edit1Change(Sender: TObject);
var SS,SL,i:integer;
    Buf:string;
begin
 with Sender as TEdit do begin
  SS:=SelStart;
  SL:=SelLength;
  SetLength(Buf,0);
  for i:=1 to length(Text) do if Text[i] in ['0'..'9'] then Buf:=Buf+Text[i];
  Text:=Buf;
  SelStart:=SS;
  SelLength:=SL;
 end;
end;