anchor.diff:    fLastPing := 0;
   end;
   
  +
   destructor TKMDedicatedServer.Destroy;
   begin
     fNetServer.Free;
     StatusMessage('Server destroyed');
     Inherited;
   end;
  +
   
   procedure TKMDedicatedServer.Start;
   begin
  
positive.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;
  
negative.code:   end;
  end;
  
  
  procedure TKMDedicatedServer.StatusMessage(const aData: string);
  begin
    if Assigned(fOnMessage) then fOnMessage(aData);
  end;
  
  
  end.
  