anchor.diff:    end;
   end;
   
  +
   procedure TKMDedicatedServer.StatusMessage(const aData: string);
   begin
     if Assigned(fOnMessage) then fOnMessage(aData);
   end;
   
  +
   end.
  
positive.code:   fLastPing := 0;
  end;
  
  destructor TKMDedicatedServer.Destroy;
  begin
    fNetServer.Free;
    StatusMessage('Server destroyed');
    Inherited;
  end;
  
  procedure TKMDedicatedServer.Start;
  begin
  
negative.code:   end;
  end;
  
  
  procedure TKMDedicatedServer.Stop;
  begin
    fNetServer.StopListening;
    fNetServer.ClearClients;
    StatusMessage('Stopped listening');
  end;
  
  
  procedure TKMDedicatedServer.UpdateState;
  begin
  