DELPHI中如何判断EDIT1.text里是一个8位的纯数字密码

在软件登陆的时候我设置了个密码判断，如果该密码只要是个8位纯数字就允许登陆，如果不是就关闭程序。请问判断EDIT1.text里是否是纯6位的数字代码应该怎么写啊。谢谢了

请写出代码，分数等你拿！

给你一个最简单的算法

procedure ButtonClick(Sender:TObject);

var

i:Integer;

begin

if Length(Edit1.Text)<>6 then

Close;//长度不是6，退出

try

i:=StrToInt(Edit1.Text);

except

Close;//不是数字，退出

end;

end;