LazarusResources.Add('lazarus_dci_file','DCI',[
  '[arrayd | array declaration (var)]'#13#10'$(AttributesStart)'#13#10'EnableMa'
  +'kros=true'#13#10'$(AttributesEnd)'#13#10'array[$param(0)..$param(1)] of $pa'
  +'ram(Type);|'#13#10'[arrayc | array declaration (const)]'#13#10'$(Attributes'
  +'Start)'#13#10'EnableMakros=true'#13#10'$(AttributesEnd)'#13#10'array[$param'
  +'(0)..$param(1)] of $param(Type) = (|);'#13#10'[cases | case statement]'#13
  +#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(AttributesEnd)'#13
  +#10'case $param(var) of'#13#10'  : |;'#13#10'  : ;'#13#10'end;'#13#10'[casee'
  +' | case statement (with else)]'#13#10'$(AttributesStart)'#13#10'EnableMakro'
  +'s=true'#13#10'$(AttributesEnd)'#13#10'case $param(var) of'#13#10'  : |;'#13
  +#10'  : ;'#13#10'else ;'#13#10'end;'#13#10'[classf | class declaration (all '
  +'parts)]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(Attribu'
  +'tesEnd)'#13#10'T$param(Class) = class(T$param(Base))'#13#10'private'#13#10
  +'  |'#13#10'public'#13#10'  constructor Create;'#13#10'  destructor Destroy;'
  +' override;'#13#10'end;'#13#10'[classd | class declaration (no parts)]'#13#10
  +'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(AttributesEnd)'#13#10
  +'T$param(Class) = class(T$param(Base))'#13#10'  |'#13#10'end;'#13#10'[classc'
  +' | class declaration (with Create/Destroy overrides)]'#13#10'$(AttributesSt'
  +'art)'#13#10'EnableMakros=true'#13#10'$(AttributesEnd)'#13#10'T$param(Class)'
  +' = class(T$param(Base))'#13#10'private'#13#10'  |'#13#10'protected'#13#10#13
  +#10'public'#13#10'  constructor Create; override;'#13#10'  destructor Destro'
  +'y; override;'#13#10'published '#13#10#13#10'end;'#13#10'[fors | for (no beg'
  +'in/end)]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(Attrib'
  +'utesEnd)'#13#10'for $param(i) := $param(0) to $param(Count - 1) do |;'#13#10
  +'[forb | for statement]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'
  +#13#10'$(AttributesEnd)'#13#10'for $param(i) := $param(0) to $param(Count-1)'
  +' do'#13#10'begin'#13#10'  |'#13#10'end;'#13#10'[function | function declara'
  +'tion]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(Attribute'
  +'sEnd)'#13#10'function $param(Name)($param( )): $param(Type);'#13#10'begin'
  +#13#10'  |'#13#10'end;'#13#10'[ifs | if (no begin/end)]'#13#10'$(AttributesS'
  +'tart)'#13#10'EnableMakros=true'#13#10'$(AttributesEnd)'#13#10'if $param(Con'
  +'dition) then |'#13#10'[ifb | if statement]'#13#10'$(AttributesStart)'#13#10
  +'EnableMakros=true'#13#10'$(AttributesEnd)'#13#10'if $param(Condition) then '
  +'begin'#13#10'  |'#13#10'end;'#13#10'[ife | if then (no begin/end) else (no '
  +'begin/end)]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(Att'
  +'ributesEnd)'#13#10'if $param(Condition) then'#13#10'  |'#13#10'else'#13#10
  +'[ifeb | if then else]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13
  +#10'$(AttributesEnd)'#13#10'if $param(Condition) then begin'#13#10'  |'#13#10
  +'end'#13#10'else begin'#13#10#13#10'end;'#13#10'[procedure | procedure decla'
  +'ration]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(Attribu'
  +'tesEnd)'#13#10'procedure $param(Name)($param( ));'#13#10'begin'#13#10'  |'
  +#13#10'end;'#13#10'[ofall | case of all enums]'#13#10'$(AttributesStart)'#13
  +#10'EnableMakros=true'#13#10'$(AttributesEnd)'#13#10'of'#13#10'|$OfAll()end;'
  +#13#10'[trye | try except]'#13#10'try'#13#10'  | '#13#10'except'#13#10#13#10
  +'end;'#13#10'[tryf | try finally]'#13#10'try'#13#10'  | '#13#10'finally'#13
  +#10#13#10'end;'#13#10'[trycf | try finally (with Create/Free)]'#13#10'$(Attr'
  +'ibutesStart)'#13#10'EnableMakros=true'#13#10'$(AttributesEnd)'#13#10'$param'
  +'(variable) := $param(typename).Create;'#13#10'try'#13#10'  |'#13#10'finally'
  +#13#10'  $param(variable,sync=1).Free;'#13#10'end;'#13#10'[whileb | while st'
  +'atement]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(Attrib'
  +'utesEnd)'#13#10'while $param(Condition) do begin'#13#10'  |'#13#10'end;'#13
  +#10'[whiles | while (no begin)]'#13#10'$(AttributesStart)'#13#10'EnableMakro'
  +'s=true'#13#10'$(AttributesEnd)'#13#10'while $param(Condition) do |'#13#10'['
  +'withb | with statement]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'
  +#13#10'$(AttributesEnd)'#13#10'with $param(Condition) do begin'#13#10'  |'#13
  +#10'end;'#13#10'[b | begin end]'#13#10'begin'#13#10'  |'#13#10'end;'#13#10'['
  +'withs | with (no begin)]'#13#10'with | do'#13#10'[hexc | HexStr(Cardinal(),'
  +'8)]'#13#10'HexStr(Cardinal(|),8)'#13#10'[be | begin end else begin end]'#13
  +#10'begin'#13#10'  |'#13#10'end else begin'#13#10#13#10'end;'#13#10'[withc |'
  +' with for components]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13
  +#10'$(AttributesEnd)'#13#10'with $param(Component) do begin'#13#10'  Name:='
  +'''$param(Name)'';'#13#10'  Parent:=$param(Parent);'#13#10'  Left:=$param(0)'
  +';'#13#10'  Top:=$param(0);'#13#10'  Width:=$param(1);'#13#10'  Height:=$par'
  +'am(1);'#13#10'  Caption:=''$param(Caption)'';'#13#10'end;'#13#10'[d | debug'
  +'ln]'#13#10'$(AttributesStart)'#13#10'EnableMakros=true'#13#10'$(AttributesE'
  ,'nd)'#13#10'debugln([''$ProcedureName() ''|]);'#13#10
]);