[Kapitoshka438]

Чтобы можно было нажимать только цифры:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', '-', #8]) then Key := #0;
// '-' можно убрать, если не нужно
end;

Контроль попадания в интервал:

Код:

procedure TForm1.Edit1Exit(Sender: TObject);
var
  Value: Integer;
begin
  TryStrToInt(Edit1.Text, Value);
  if Value < UpDown1.Min then
    Edit1.Text := IntToStr(UpDown1.Min)
  else if Value > UpDown1.Max then
    Edit1.Text := IntToStr(UpDown1.Max);
end;

А можно поинтересоваться, для чего вам отлавливать событие нажатия на UpDown?