anchor.diff:    inherited Destroy;
   end;
   
  +function TmFilter.GetFormattedValue: Variant;
  +begin
  +  if not VarIsNull(FValue) then
  +  begin
  +    if FFilterOperator = foLike then
  +      Result := '%' + FValue + '%'
  +    else if FFilterOperator = foStartWith then
  +      Result := FValue + '%'
  +    else if FFilterOperator = foEndWith then
  +      Result := '%' + FValue
  +    else
  +      Result := FValue;
  +  end
  +  else
  +    Result := FValue;
  +end;
  +
   end.
  
positive.code:     function Count : integer;
      function Get(aIndex : integer) : TmFilter;
    end;
  implementation
  
  { TmFilters }
  
negative.code:   public
      constructor Create;
      destructor Destroy; override;
  
      function GetFormattedValue : Variant;
  
      property FieldName : string read FFieldName write FFieldName;
      property FilterOperator : TmFilterOperator read FFilterOperator write FFilterOperator;
  