Réponse acceptée !
perso j'utilise plutôt l'évènement OnKeyPress
par exemple :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#8,'0'..'9']) then
key:=#0;
end;
// si la touche appuiée n'est pas un chiffre alors c'est comme si aucune touche n'avais été appuiée...
maintenant t'as le choix

tu fait en fonction de tes prefs lol
++