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