怎么在Delphi中实现自动注释功能

如何在Delphi中实现自动注释功能？
谁有工具或者什么代码可以实现？

[解决办法]
代码编辑框里点出右键菜单
打开Propertties设置代码模本
让后Ctrl+J就可以快速输入或选择
也可以下一cnpack装上用