delphi 限制文本框中只接受数字

在窗体上,放一个TEXTBOX 和BUTTON,当在TEXTBOX中输入非数字时,如果点击BUTTON,则进行人机对话框作出提示：

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:= 1 to length(edit1.text) do
if not(edit1.text[i] in ['0'..'9']) then
begin
showmessage('只能输入数字！！！delphitop.com ') ;
exit;
end;
end;