怎麼把鼠標觸發事件換成来車觸發

怎麼把鼠標觸發事件換成回車觸發
之前鼠標觸發是procedure TRunForm.SpeedButton2Click(Sender: TObject);


如果我要換成按下回車鍵就觸發，這個怎麼寫？
------解决思路----------------------
Form的KeyPreview:= true；
然后Form的KeyDown事件中，中对回车按键进行处理
------解决思路----------------------
1、设置Form的属性KeyPreview属性为True；
2、form的onkeypress事件，通过代码判断：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then begin
    //  鼠标事件代码
  end 
  else begin
   //   非回车事件代码（或无）
  end;
end;