anchor.diff:      procedure InternalOnClickFilter (Sender : TObject);
     public
       constructor Create(TheOwner: TComponent); override;
  -    procedure SetFilterCaption (aValue : String); override;
       procedure ExportToFilter (aFilter : TmFilter); override;
       procedure Clear; override;
       function IsEmpty : boolean; override;
  
positive.code: 
  procedure TmEditFilterConditionPanel.SetFilterCaption(aValue: String);
  begin
    FLabel.Caption := Self.FormatFilterCaption(aValue);
  end;
  
  
negative.code:   inherited Destroy;
  end;
  
  procedure TmFilterConditionPanel.SetFilterCaption(aValue: String);
  begin
    FCaption := aValue;
  end;
  
  procedure TmFilterConditionPanel.ExportToFilter(aFilter: TmFilter);
  begin
    aFilter.FieldName := Self.FieldName;
  