怎样调用这个过程

我从网上找了一个“过程”，但我不会调用，请高手指点一下吧，谢谢。
这是我要调用的那个“过程”
procedure TFm_counter_RNB.EdtMainTurn(Edt_Center: TEdit; Edt_Up: TEdit; Edt_Down: TEdit; Edt_Left: TEdit; Edt_Right: TEdit;
  Lbl_Center: TLabel; Lbl_Up: TLabel; Lbl_Down: TLabel; Lbl_Left: TLabel; Lbl_Right: TLabel; var Key: Word;  Shift: TShiftState );
begin
    if key =  38 then
    begin
              Edt_Center.Visible := false;
              Edt_Up.Visible := true;
             Edt_Up.SetFocus;
     end
     else if key = 40 then       begin
              Edt_Center.Visible := false;
              Edt_Down.Visible := true;
              Edt_Down.SetFocus;
            end
      else if key  = 37 then
       begin
              Edt_Center.Visible := false;
              Edt_Left.Visible := true;
              Edt_Left.SetFocus;
            end
       else if key = 39 then
        begin
              Edt_Center.Visible := false;
              Edt_Right.Visible := true;
              Edt_Right.SetFocus;
        end;
end;这过程中的最后那个“参数”我不知道该怎样弄“var Key: Word;  Shift: TShiftState”，就是Key这个参数我不会写，不知道怎么写EdtMainTurn((sender as TEdit),edtintbox1r2,edtintbox3r2,edtintbox2r1,edtintbox2r3,lbloutbox2r2,lbloutbox1r2,lbloutbox3r2,lbloutbox2r1,lbloutbox2r3);
这是我调用这个过程的实际代码，可无法通过编译，Delphi提示说“过程参数没有弄完（原文是“Not enough actual parameters”）”，原因是“var Key: Word;  Shift: TShiftState”参数没写，我可不会写，我是初学者，所以也不知道上面那个过程没有没毛病。希望大家给我指点。谢谢。