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

procedure TForm2.LabeledEdit1Change(Sender: TObject);
var curChar: Char;
    buffer: String;
    i, dummy: Integer;
begin
  if Length(LabeledEdit1.Text) = 0 then Exit;
  buffer := LabeledEdit1.Text;
  for i := 1 to Length(buffer) do
  begin
    curChar := buffer[i];
    try
      StrToInt(curChar);
    except
      on Exception do Delete(buffer,i,1);
    end;
  end;
end;					

1:

If (key < 0) or (key > 9) then showmessage('Taste falsch!');					

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

procedure TForm1.Edit1Change(Sender: TObject);
var s:string;
    i,p:integer;
begin
  s:=(Sender as TEdit).text;
  p:=(Sender as TEdit).selstart;
  for i:=length(s) downto 1 do
  begin
    if not (s[i] in ['0'..'9']) then
    begin
      delete(s,i,1);
      if i<=p then dec(p);
    end;
  end;
  (Sender as TEdit).text:=s;
  (Sender as TEdit).SelStart:=p;
end;					

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

function SelektiereNurZahlen(Wert: String): String;
const zahlen = ['0'..'9'];
var i: Integer;
    tempstr: String;
begin
 SelektiereNurZahlen:= '';
 tempstr:= '';

 for i:= 1 to length(Wert) do
  if not (Wert[i] in zahlen) then
   continue 
  else
   tempstr:= tempstr + Wert[i];

 //Funktionsrückgabe
 SelektiereNurZahlen:= tempstr;
end;					

1:

Edit.text:= SelektiereNurZahlen(Edit1.text);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function SelektiereNurZahlen2(Wert: String): String;
const zahlen = ['0'..'9'];
var i: Integer;
    tempstr: String;
begin
 SelektiereNurZahlen:= '';
 tempstr:= '';
  
 //Versuchen, umzuwandeln
 val(Wert, i);

 if i <> 0 then
 begin
  //erstes Zeichen falsch?
  if i = 1 then
   tempstr:= copy(wert, 2, length(wert)-1)
  else
  begin
   //Teil vor dem falschen Zeichen
   tempstr:= copy(wert, 1, i-1);
   //Teil nach dem falschen Zeichen
   tempstr:= copy(wert, i+1, length(wert)-i);
  end;
 end;

 //Funktionsrückgabe
 SelektiereNurZahlen:= tempstr;
end;					

1:
2:
3:
4:

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