anchor.diff:      FCombobox: TComboBox;
       FGarbage : TObjectList;
       FDefaultItemIndex : integer;
  +    FValueType : TmComboCheckLookupFilterValueType;
       procedure SetDefaultItemIndex(AValue: integer);
     public
       constructor Create(TheOwner: TComponent); override;
  
positive.code:     aFilter.DataType:= fdtInteger;
    end
    else
    if FValueType = efFloat then
    begin
      if VarIsFloat(FCurrentValue) then
        aFilter.Value := FCurrentValue
      else
        aFilter.Value := null;
      aFilter.DataType:= fdtFloat;
    end
    else
      aFilter.Value := FCurrentValue;
  
negative.code:     procedure Clear; override;
    end;
  
    TmEditFilterValueType = (efString, efUppercaseString, efInteger, efFloat, efUniqueIdentifier, efDate, efDateTime);
    TmComboCheckLookupFilterValueType = (cfString, cfInteger, cfFloat, cfDate, cfDateTime);
  
    { TmEditFilterConditionPanel }
  
  