我是delphi新手，遇到一个问题，大家帮忙，解决一下吧！谢谢！

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
form1.FocusControl(edit1);
button1.enabled:=false;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
   begin
   key:=#0;
   MessageBeep(1);
   end;
end;procedure TForm1.Edit1Enter(Sender: TObject);
begin
 if length(edit1.Text)=6 then　　　　//如果edit1里的内容等于６个字符，则把光标定义到edit2，
form1.FocusControl(edit2);
end;procedure TForm1.Edit2Enter(Sender: TObject);
begin    //如果edit1里的内容等于６个字符，则把焦点定义到form1
if length(edit2.Text)=6 then button1.Enabled:=false;  
form1.FocusControl(button1);
end;
end.我想实现窗体的edit1的内容超过６个字符，就自动转到edit2，edit2的内容超过６个字符就直接激活button1，并把焦点放到button1上，可是以上的代码好像有问题，实现不了，请各位大哥大姐高手们帮忙看看！！赐教一二！