想限制输入长度：maxlength属性设置为4，则输入内容不超过4字符。想超长后提示：onChange事件里判断长度,if Length(Edit1.Text)>4 then showmessage('超出范围');
if length(edit1.text)>4 thenbegin showmessage('超出'); edit1.text:=leftstr(edit.text,4);end;
