1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Edit1Change(Sender: TObject);

  function Filter(const S: String): String;
    const
      OK: Set of Char = ['0'..'9'];
    var
      i: Integer;
  begin
    Result := '';
    for i := 1 to Length(S) do
      if (S[i] in OK) then
        Result := Result +S[i];
  end;

begin
  if (Edit1.Modified) then begin
    Edit1.Text := Filter(Edit1.Text); // Eingabe bereinigen
    Edit1.SelStart := Length(Edit1.Text); // Cursor ans Textende stellen
  end;
end;					

1:
2:
3:
4:
5:

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