关于在一个procedure中调用另一个procedure的问题~~~

Question

想在procedure TAddDatePic.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);中调用过程procedure TAddDatePic.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);，那么应该在procedure TAddDatePic.DBGrid1KeyUp中的DBGrid1KeyDown();的括号内写什么？

Answer 1

是自己写一个procedure，将方法写在其中，然后DBGrid1KeyUp和DBGrid1KeyDown分别调用吗？
但我觉得应该还会遇到'实参不够'的提示~

Answer 2

DBGrid1KeyDown(Sender, Key, Shift);

Answer 3

procedure   TFormlib.dy(p:   TNotifyEvent;sender   :   TObject);
begin
  p(sender);
end;
实例: dy(Button2Click,Sender);//调用button2的onclick事件