[RusMaXXX]

используй лучше компонент TSpinEdit, если он не устраивает, то фильтруй вводимые символы в TEdit, к примеру так:

Код:

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