delphi 新建unit之后，自动添加unit注解
我想每次在new 一个unit或者form时，在.pas档中 unit上面，自动添加下面的注解


delphi中能设置么???

//*****************************************************
//*Unit Name    :XXX
//*Description  :XXX
//*Author       :XX
//*Created      :XXX
//*Company      :XXX
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

[解决办法]
当然可以！
制作窗体或单元模板！
不过没什么意义！
用CnPack可以直接生成单元头和过程头！
[解决办法]
Tools API可以自己写,或者用CnPack