【急】关于页面中用LabeledEdit接收用户输入的数据怎么验证输入的是数字而不是非数字字符有关问题？【急】

【急急急】关于页面中用LabeledEdit接收用户输入的数据如何验证输入的是数字而不是非数字字符问题？？？【急急急】
我在一个界面中设了10个LabeledEdit输入框，用来接收用户输入的数据，要求是这10个LabeledEdit中用户输入的都必须是数字，因为这10个数字在程序中我要用于数学计算的，如果输入的是非数字字符，那么系统立即挂掉了。

我想请教各位高手，如何设立一个校验，验证这10个用户输入的数据是否是数字，如果不是责弹出消息框显示“输入数据有误请重新输入”。

希望能给我一段完整点的代码例子，非常感谢！！！

------解决方案--------------------
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
try
i:=strtoint(labelededit1.Text);
except
labelededit1.Text:= ' ';
i:=0;
end;
self.Caption:=inttostr(i);
end;

------解决方案--------------------
faint!
IDE环境中肯定会捕捉到异常，你单独运行试一下吧
------解决方案--------------------
将所有TLabelEdit 的Tag 值设为1 ,然后用下面代码进行检查

procedure TForm1.Button1Click(Sender: TObject);
var
i,L:Integer;
E,int:Integer;
Sum:integer;
edt:TLabeledEdit ;
Count:Integer;
begin
Sum:=0;
Count:=0;
L:=ControlCount-1;
for i:=0 to L do
begin
if (Controls[i] is TLabeledEdit)and(1=Controls[i].Tag) then
begin
edt:=TLabeledEdit(Controls[i]);
Val(Trim(edt.Text), int, E);
if E <> 0 then
Count:=-1
else
begin
inc(Count);
Sum:=Sum+int;
end;
end;
end;
if Count <0 then
ShowMessage( '不是数字 ')
else
ShowMessage(IntToStr(Sum)+ ' '+IntToStr(Count));
end;
------解决方案--------------------
中间代码要加一个Break;

if E <> 0 then
begin
Count:=-1;
Break;
end
else
begin
inc(Count);
Sum:=Sum+int;
end;