var s : string; i : int;begin s := edit1.Text; if s.length<>6 then showmessage('信息输入错误，请重新输入！'); if TryStrToInt(s,i) then ShowMessage('是数字') else ShowMessage('不是数字');end;
