anchor.diff:    FGuardMessage := AValue;
   end;
   
  +function TGuardedObjectOptions.IsGuardsStored: Boolean;
  +begin
  +  Result := FGuards.Count > 0;
  +end;
  +
   { TCreatureSet }
   
   procedure TCreatureSet.SetTightFormation(AValue: Boolean);
  
positive.code:   private
      FGuardMessage: TLocalizedString;
      FGuards: TCreatureSet;
      procedure SetGuardMessage(AValue: TLocalizedString);
    public
      constructor Create(AObject: IMapObject); override;
  
negative.code: 
      procedure Clear; override;
    published
      property Guards: TCreatureSet read FGuards stored IsGuardsStored;
      property GuardMessage:TLocalizedString read FGuardMessage write SetGuardMessage;
    end;
  
  