动态生成控件

比如动态生成一个button,但不是点击某一按钮后在窗体固定位置立即生成,而是和delphi本身一样,先选择所需控件类型,然后在鼠标点击位置生成.请问怎样编写代码