如何调用“控件”的事件过程，请高手指点。

Question

有两个Edit控件（edit1、edit2），现在我编好了Edit1的OnKeyPress事件过程。Edit2如何调用Edit1的事件过程，以减小代码的重复输入。procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);  //这是Edit1的事件过程的代码。
begin
  if key = #13 then
  begin
    showmessage('调用过程成功');
  end;
end;procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);  //edit2如何调用“edit1”的事件过程呢？？？
begin
  ？？？？？？？？？？？？？？？？？     //我需要实际代码，谢谢。
end;

Answer 1

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);  //edit2如何调用“edit1”的事件过程呢？？？ 
begin 
  Edit1KeyPress;      //我需要实际代码，谢谢。 
end; 

Answer 2

设计的时候，选择Edit2，在Object Inspector的Events页的OnKeyPress事件栏的下拉框中选择Edit1KeyPress即可。

Answer 3

非要调用的话
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);  //edit2如何调用“edit1”的事件过程呢？？？
begin
  Edit1KeyPress(Sender,Key);
end; 

Answer 4

可以选择Edit2KeyPress 为Edit1KeyPress
非要调用的话 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);  //edit2如何调用“edit1”的事件过程呢？？？ 
begin 
  Edit1KeyPress(Sender,Key); 
end;