Баги в PascalABC

procedure F(x: object);
begin
  exit;
end;
 
begin
  F(1); // <--
end.

begin
  try
  except
    on e: EInvalidOp do // Если добавить сюда begin-end ошибка исчезнет.
  end; // <--
end.

type
  T1 = class
  private // Либо protected
    procedure P;
    begin
      exit;
    end;
    
  public
    procedure P(x: integer);
    begin
      exit;
    end;
  end;
  
var
  A: T1;
  
begin
  A := T1.Create();
  A.P(1);
end.

type
  T1 = class
  // Если убрать всю секцию public, то доступ к P пропадет из вне класса.
  // То же самое будет если public и private поменять местами.
  public
    procedure P(x: integer);
    begin
      Writeln('1');
    end;
 
  private
    procedure P;
    begin
      Writeln('2');
    end;
  end;
 
var
  A: T1;
 
begin
  A := T1.Create();
  A.P(); // Доступ есть.
end.