anchor.diff:    FEdit.Text := '';
     FEdit.OnEditingDone:= Self.OnEditValueChanged;
     FLabel := Self.CreateStandardLabel;
  -  FForceUppercase:= false;
  +  FValueType:= efString;
     CreateStandardOperatorMenu(FLabel);
   end;
   
  
positive.code: end;
  
  function TmEditFilterConditionPanel.GetFilterValue: Variant;
  begin
    if FEdit.Text = '' then
      Result := null
    else
    begin
      if FForceUppercase then
        Result := Uppercase(FEdit.Text)
      else
        Result := FEdit.Text;
    end;
  end;
  
  procedure TmEditFilterConditionPanel.SetFilterValue(aValue: Variant);
  
negative.code:     procedure Clear; override;
    end;
  
    TmEditFilterValueType = (efString, efUppercaseString, efInteger, efFloat);
  
    { TmEditFilterConditionPanel }
  
    TmEditFilterConditionPanel = class (TmFilterConditionPanel)
    private
      FLabel : TLabel;
      FEdit : TEdit;
      FValueType : TmEditFilterValueType;
      procedure OnEditValueChanged (Sender : TObject);
    public
      constructor Create(TheOwner: TComponent); override;
  