求助：运行的结果不一样，纳闷！？（初学者）

Question

下面是我写的语句：
================================================================
procedure TForm2.Edit1DblClick(Sender: TObject);
begin
  form3.show();
  a:=1;
end;================================================================
procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
   form3.show();
end;
================================================================
procedure TForm3.FormActivate(Sender: TObject);
begin
  edit1.text:='';
  edit2.text:='';
  edit1.setfocus;
  adoquery1.first;
end;
===============================================================
当我执行第一部分的操作的时候，可以实现第三部分的要求：edit1获得焦点；
但是当我去执行第二部分的时候，却不能实现第三部分的要求，而是edit2获得焦点。
请问高手这是为什么？？
在这里小弟先谢谢各位高手了。

Answer 1

改为：procedure   TForm3.FormActivate(Sender:   TObject); 
begin 
    edit1.text:=''; 
    edit2.text:=''; 
    edit1.setfocus; 
    edit1.BringToFront;
    adoquery1.first; 
end;