combobox的过滤问题(15分)

在一个窗体上有多个combobox，我想让它们只能接受数字，即过滤掉字符串，或者禁止字母
键的输入（只让按数字键有效），如何实现？
本来是想用val函数逐个判断，好像每个change时间都要写，求教中

自定义一个过程
过程中对输入字符判断
如果不在[1..9,#8]内就无效

楼上的能稍详细点吗？

没人帮我吗？？

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#48..#59,#8,#13,#46]) then
key:=#0
else
begin
if key=#13 then
begin
key:=#0;
perform(WM_NEXTDLGCTL,0,0);
end;
if key=#46 then
begin
for i:=1 to Length(Edit3.Text) do
begin
if Copy(Edit3.Text,i,1)='.' then
key:=#0;
end;
end;
end;

end;

楼上的，能否加以注释阿..