unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    ud1: TUpDown;
    edt1: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    edt2: TEdit;
    ud2: TUpDown;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    btn1: TButton;
    lbl8: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ud1.Associate:= edt1;  //在窗体创建的时候，通过将ud1的Associate属性设置为edt1，将两个组件联系在一起，就可以通过ud1对edt1中的数字进行增减了
  ud2.Associate:= edt2;    //作用同上
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  res: Integer;
  plus1: Integer;
  plus2: Integer;
begin
  plus1:= StrToInt(edt1.Text);   //可以使用该方式获取编辑框中的值  //TEdit的Text属性是string类型
  plus2:= ud2.Position;    //因为ud2.Associate:= edt2; 所以ud2与edt2联系在一起，所以也可以使用这样的方式获取编辑框中的值    // UpDown的Position属性是SmallInt类型

  res:= plus1 + plus2;

  lbl4.Caption:= IntToStr(plus1);
  lbl6.Caption:= IntToStr(plus2);
  lbl8.Caption:= IntToStr(res);
end;

end.

procedure Tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
 edt: TEdit;
 str, strL, strR: string;
 p: integer;
begin
   // 获取当前文本内容, 注意要去掉选中部分(因为会被改写).
 edt := TEdit(Sender);
 str := edt.text;
 if Length(edt.SelText) <> 0 then
 begin
   strL := LeftStr(edt.text, edt.SelStart);
   strR := RightStr(edt.text, Length(edt.text) - edt.SelStart - edt.SelLength);
   str := strL + strR;
 end;
   // 限制输入数字/小数点/退格键
 if not (Key in [#8, #13, #127, '.', '-', '0'..'9']) then Key := #0;
   //限制只能输入一个小数点
 if Key = '.' then
 begin
   p := Pos('.', edt.Text);
   if p > 0 then Key := #0;
 end;
   //限制只能在第一位输入且只能输入一个'-'号
 if Key = '-' then
 begin
   if edt.SelStart > 0 then Key := #0;
   p := Pos('-', edt.Text);
   if p > 0 then Key := #0;
 end;
end;

//要uses StrUtils单元
如果程序里有很多的TEdit要做此限制，当然不必给每个控件写代码，把事件指定到同一个过程就行了。