Memory leak

I'm using sgcWebsockets 2023.4.0 with Lazarus/FPC, Windows 11 Pro

With a skeleton setup I have a memory leak.

Am I just missing something simple here?

program project1;



{$mode objfpc}{$H+}



uses

  {$IFDEF UNIX}

  cthreads,

  {$ENDIF}

  Classes, sysutils,

  sgcWebSocket,

  sgcWebSocket_Classes,

  sgcWebSocket_Types;



type

  { TServer }

  TServer = class

  strict private

    fServer: TsgcWebSocketServer;

    procedure ProcessIncomingMessage(pConnection: TsgcWSConnection; const pText: string);

    procedure DoConnection(pConnection: TsgcWSConnection);

    procedure DoDisconnect(pConnection: TsgcWSConnection; somenum: integer);

  public

    procedure Start;

  end;



{ TServer }



procedure TServer.ProcessIncomingMessage(pConnection: TsgcWSConnection; const pText: string);

begin

  Writeln('Raw incoming data');

  Writeln(pText);

end;



procedure TServer.DoConnection(pConnection: TsgcWSConnection);

begin

  Writeln('client connected...');

end;



procedure TServer.DoDisconnect(pConnection: TsgcWSConnection; somenum: integer);

begin

  writeln('disconnecting client');

end;



procedure TServer.Start;

begin

  Writeln('Starting websocket server');

  fServer := TsgcWebSocketServer.Create(nil);

  try

    fServer.Port := 8090;

    fServer.NotifyEvents := neNoSync;

    fServer.OnMessage := @ProcessIncomingMessage;

    fServer.OnConnect := @DoConnection;

    fServer.OnDisconnect := @DoDisconnect;

    fServer.Active := true;



    while fServer.Active do begin

      Sleep(10);

    end;

  finally

    fServer.Free;

  end;

end;



var

  oServer: TServer;

begin

  oServer := TServer.Create;

  try

    oServer.Start;

  finally

    oServer.Free;

  end;

end.