Уважаемый Шаман, пожалуйста, не делайте больше одинаковых топиков, т.к. это не культурно и не этично
. Если каждый начнет плодить одинаковые топики, то так весь форум превратится в неструктурированную помойку
Ничего личного, я понимаю, что Вы наверняка это сделали не специально, лишь полезный совет.
А на счет только цифр - советую обрабатывать событие OnKeyPress и, в случае, если введена не цифра, то не позволять этому символу появиться в едитбоксе не выдавая никаких сообщеий и beep'ов...
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ((UpCase(Key) < 'A') or (UpCase(Key) > 'Z')) then Key := #0; // переделайте под цифры
end;