anchor.diff:    fLastPing := 0;
   end;
   
  +
   destructor TKMDedicatedServer.Destroy;
   begin
     fNetServer.Free;
     StatusMessage('Server destroyed');
     Inherited;
   end;
  +
   
   procedure TKMDedicatedServer.Start;
   begin
  
positive.code:   end;
  end;
  
  procedure TKMDedicatedServer.StatusMessage(const aData: string);
  begin
    if Assigned(fOnMessage) then fOnMessage(aData);
  end;
  
  end.
  
negative.code: unit KM_DedicatedServer;
  interface
  uses
    SysUtils, Windows, KM_NetServer, KM_Defaults, KM_CommonTypes;
  
  
  type
    TKMDedicatedServer = class
    private
      fLastPing: cardinal;
      fNetServer: TKMNetServer;
      fOnMessage: TStringEvent;
      procedure StatusMessage(const aData: string);
    public
      constructor Create;
      destructor Destroy; override;
  
      procedure Start;
      procedure Stop;
      procedure UpdateState;
      property OnMessage: TStringEvent write fOnMessage;
    end;
  
  
  implementation
  
  
  constructor TKMDedicatedServer.Create;
  begin
    Inherited;
  