怎么实现：当文本框输入长度达到6时，执行过程 edit2Exit

如何实现：当文本框输入长度达到6时，执行过程 edit2Exit
edit1.Text输入长度等于2时,跳转到edit2.Text;
当文本框输入长度达到6时，执行过程 edit2Exit,如何实现?

[解决办法]
主要是在编辑框的onchang事件中实现
procedure TForm1.Edit1Change(Sender: TObject);
begin
if length(edit1.Text)=6 then
edit2.SetFocus;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if length(edit2.Text)=6 then
//执行过程edit2exit,不知你这是什么过程
end;
[解决办法]
用Onchang事件,检测字符数,达到要求时跳转.
procedure TForm1.Edit1Change(Sender: TObject);
begin
if length(edit1.Text)>=2 then edit2.SetFocus ;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if length(edit2.Text)>=6 then edit2Exit ;
end;
[解决办法]
UP
[解决办法]
keypress事件中写代码;
edit1的
begin
if length(Text) >=2 then
edit2.SetFocus ;
end;


edit2的
begin
if length(Text) >=6 then "你的edit2Exit"; 
end;