procedure TForm1.txtSpieltagKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Mgs: TMsg;

  procedure EatKey;
  { Clear Keyboardbuffer / Tastaturbuffer leeren }
  begin
    PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
  end;
begin
  if not (Char(Key) in [#8, #13, #46, #48..#57,#96..#105]) then EatKey;
end;

//Variante1:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);    
var i:integer;    
    b:boolean;    
begin    
  b:=false;    
  for i:=48 to 57 do    
  begin    
    if ord(key) =i then b:=true    
  end;    
  if b=false then key:=chr(0);    
end;   


//Variante2:

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);    
var i:integer ;    
begin    
  try    
    i:=strtoint(key);    
  except    
    key:=chr(0);    
  end;    
end;   


//Variante3:

// lässt nur Zahlen zu und die Backspacetaste    
procedure KeyPressWord(Form : TForm; Sender : TObject; var Key : Char);    
begin    
  if NOT (Key in [#08, '0'..'9']) then    
    Key := #0;    
end;    


//Variante4:


// lässt nur Zahlen mit Komma zu und die Backspacetaste    
procedure KeyPressFloat(Form : TForm; Sender : TObject; var Key : Char);    
begin    
  if Key = '.' then    
    Key := ',';    
  if NOT (Key in [#8, '0'..'9', ',']) then    
    Key := #0;    
end;    


//Zusatz:
//optional kann in die Procedure noch ein Code eingebaut werden, der den Cursor aufs nächste Feld //setzt, wenn du Enter drückst(die nächste Taborder):

  if Key = Chr(vk_Return) then    
  begin    
    Key := #0;    
    Form.Perform(wm_NextDlgCtl, 0, 0);    
  end;

function TForm1.Edit1Change(Sender:TObject);
var b:byte; S:String;
begin
  S:=Edit1.Text;
  for b:=1 to Length(S) do
    if IsNotNumber(S[b]) then S:='';
  Edit1.Text:=S;
end;