{$MODE OBJFPC}{$H+}
{$MODESWITCH ADVANCEDRECORDS}       
type TS = record
  private 
    a: integer;
  strict private 
    b: integer;
end;

var
 s: TS;

begin
  s.a := 1; // OK
  s.b := 1; // NG
end.