如何用代码实现鼠标单击事件？

通常情况下如果我要实现鼠标单击事件 可以在Object Inspector中的Event 中选择
OnClick()双击之后 就可以实现代码了。
然后在：
procedure TForm1.Button2Click(Sender: TObject);
begin
  
            //写代码实现了。
end;如果我不用 这个Object Inspector 就单单凭 代码 如何来实现？
请高手指点，先谢了 。