Получить доступ к protected функции

protected function PollEvent(var eventToFill: SFML.Window.Event): boolean; virtual;

{$reference 'sfmlnet-graphics-2.dll'}
 
type
  MyWindowType=class(sfml.Graphics.RenderWindow)
    
    procedure p1;
    begin
      var e := self.PollEvent(nil)
    end;
    
    constructor;
    begin
      inherited Create(System.IntPtr.Zero);
    end;
    
  end;
 
begin end.

{$reference 'sfmlnet-graphics-2.dll'}
{$reference 'sfmlnet-window-2.dll'}
 
type
    MyWindowType = class(sfml.Graphics.RenderWindow)
        
        procedure p1;
        begin
            var e := self.PollEvent(nil);
        end;
        
        constructor;
        begin
            inherited Create(System.IntPtr.Zero);
        end;
    
    end;
 
begin
    var Okno := new MyWindowType;
    var Shape := new SFML.Graphics.CircleShape(100);
    Shape.FillColor := sfml.Graphics.Color.Green;
    while Okno.isOpen do
    begin
        var MyEvent: sfml.Window.Event;
        while Okno.PollEvent(MyEvent) do
        begin
            if MyEvent.type = sfml.Window.EventType.Closed then Okno.Close;
        end;
        Okno.Clear;
        Okno.Draw(shape);
        Okno.Display;
    end;
end.