LazarusResources.Add('indentation','PAS',[
  'unit Indentation;'#10#10'{$mode objfpc}{$H+}'#10#10'interface'#10#10'uses'#10
  +'  Classes, SysUtils;'#10#10'type'#10'  TEnums = ('#10'    enum1,'#10'    en'
  +'um2,'#10'    enum3'#10'    );'#10#10'  TMyRecord = record'#10'    i: intege'
  +'r;'#10'  end;'#10'  PMyRecord = ^TMyRecord;'#10#10'  { TMyClass }'#10#10'  '
  +'TMyClass = class(TObject)'#10'  public'#10'    procedure DoSomething1(a, b,'
  +' c: integer);'#10'    procedure Code;'#10'  end;'#10#10'implementation'#10
  +#10'{ TMyClass }'#10#10'procedure TMyClass.DoSomething1(a, b, c: integer);'
  +#10'var'#10'  i: integer;'#10'begin'#10'  if i=0 then'#10'  begin'#10'    re'
  +'peat'#10'      if a=2 then'#10'        ;'#10'    until b=3;'#10'    try'#10
  +'      Code;'#10'    finally'#10'      Code;'#10'    end;'#10'    try'#10'  '
  +'    Code;'#10'    except'#10'      on e: exception do'#10'        ;'#10'   '
  +' end;'#10'  end'#10'  else'#10'  begin'#10'    case c of'#10'    1: Code;'
  +#10'    2:'#10'      begin'#10'        code;'#10'      end;'#10'    else'#10
  +'      code;'#10'    end;'#10'  end;'#10'end;'#10#10'procedure TMyClass.Code'
  +';'#10'begin'#10'  writeln(''TMyClass.Code '');'#10'  repeat'#10#10'  until '
  +';'#10'end;'#10#10'end.'#10#10
]);