在Form上处理控件的回车进入下一个控件

procedure   TForm1.FormCreate(Sender:   TObject);  
  begin  
      self.KeyPreview   :=   true;  
  end;  
   
  procedure   TForm1.FormKeyPress(Sender:   TObject;   var   Key:   Char);  
  begin  
      if   Key   =   #13   then  
      begin  
          Key   :=   #0;  
          self.Perform(WM_NEXTDLGCTL,   0,   0)  
      end;  
  end;