The Websocket Server Console application is not running events

program Server;



{$APPTYPE CONSOLE}



{$R *.res}



uses

  System.SysUtils,

  sgcWebSocket,

  sgcWebSocket_Classes;



type

  TServer = class

  strict private

    fServer: TsgcWebSocketServer;

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

    procedure DoConnection(pConnection: TsgcWSConnection);

  public

    procedure Start;

  end;



{ TServer }



// it is not working???

procedure TServer.DoConnection(pConnection: TsgcWSConnection);

begin

  Writeln('Servidor Conectado...');

end;



// it is not working???

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

begin

  Writeln(pText); 

end;



procedure TServer.Start;

begin

  Writeln('Servidor de Websocket ligado na porta 5000...');

  fServer := TsgcWebSocketServer.Create(nil);

  try

    fServer.Port := 5000;

    fServer.OnMessage := DoMessage;

    fServer.OnConnect := DoConnection;

    fServer.Active := True;

    fServer.Start;

    while fServer.Active do

    begin

      Sleep(10);

    end;

  finally

    fServer.Free;

  end;

end;



var

  vServer: TServer;

begin

  try

    vServer := TServer.Create;

    try

      vServer.Start;

    finally

      vServer.Free;

    end;

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;

end.