Question

delphi中edit组件的问题

各位大侠
procedure TForm1.Edit1KeyPress(Sender: TObject;var KEY :char);
begin
if ord(key)=13 then
if edit1.text<>'123456' then
begin
showmessage('帐号有错误,请重新输入');
edit1.text:='';
edit1.setfocus;
else
edit2.setfocus;
else
if (key<'0')or(key>'9')then
begin
showmessage('帐号必须有数字');
key:=#0;
end;
end;

end;

procedure TForm1.Edit2keypress(Sender: TObject;var key:char);
begin
if ord(key)=13 then
if edit2.text='Psaa' then
begin
showmessage('欢迎你');
form1.Close;
end
else
begin
showmessage('密码错误,请重新输入');
edit2.text:='';
edit2.setfocus;
end;

end;

end.
哪儿错了?
delphi 7提示第一句出错了.有劳各位了.

Answer 1

begin
showmessage('帐号有错误,请重新输入');
edt1.text:='';
edt1.setfocus;
end
//缺少end

再一个漏洞：使用Tab键就没有检测是否录入的正确
还一个Bug：退格键无法使用

Answer 2

"end"缺少或位置不对

if ord(key)=13 then
begin
if (trim(edit1.text)<>'123456' )then
begin
showmessage('帐号有错误,请重新输入');
edit1.text:='';
edit1.setfocus;
end
else
edit2.setfocus;
end
else
if (key<'0')or(key>'9')then
begin
showmessage('帐号必须有数字');
key:=#0;
end;