unit %0:s; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, AppBars; type T%1:s = class(TAppBar) private { Private declarations } public { Public declarations } end; var %1:s: T%1:s; implementation {$R *.DFM} end.