program TestRange;

{$mode objfpc }

{$Q- }
{$R+ }

type
  TSynPasSynRange = class // (TSynCustomHighlighterRange)
  protected
    FPasFoldFixLevel: Smallint;
  public
    procedure DecLastLinePasFoldFix;
  end;

procedure TSynPasSynRange.DecLastLinePasFoldFix;
begin
  dec(FPasFoldFixLevel);
end;


var	z: TSynPasSynRange;	

begin
  z := TSynPasSynRange.Create;
  z.FPasFoldFixLevel := 1;
  WriteLn(z.FPasFoldFixLevel);
  z.DecLastLinePasFoldFix;
  WriteLn(z.FPasFoldFixLevel);
  z.DecLastLinePasFoldFix;
  WriteLn(z.FPasFoldFixLevel);
  z.DecLastLinePasFoldFix;
  WriteLn('OK');
  z.Free
end.