{
Declarez un gestionnaire pour l'evenement OnKeyPress du/des composants TEdit
a controler, puis inserez le code ci dessous :
'0'..'9' definit les caracteres de 0 a 9 (#48..#57)
#08 est obligatoire dans ce cas pour beneficier de la touche BackSpace
}
procedure TFormX.EditNKeyPress(Sender : TObject; var Key : char);
begin
if not ( Key in ['0'..'9',#08] ) then Key := #0;
end;