anchor.diff:  
       property ValueType : TmEditFilterValueType read FValueType write FValueType;
       property KeyFieldName : String read FKeyFieldName write FKeyFieldName;
  -//    property ValueFieldName : string read FValueFieldName write FValueFieldName;
       property OnFillVirtualFieldDefs : TmLookupFilterCondizionOnFillVirtualFields read FOnFillVirtualFieldDefs write FOnFillVirtualFieldDefs;
       property LookupFieldNames : TStringList read FLookupFieldNames;
       property DisplayLabelFieldNames: TStringList read FDisplayLabelFieldNames;
  +  end;
  +
  +  { TmLookupFilterConditionPanel }
  +  TmLookupFilterConditionPanel = class(TmBaseLookupFilterConditionPanel)
  +  strict private
  +    FDataProvider: TmDataProvider;
  +  protected
  +    procedure OnShowLookup (Sender: TObject); override;
  +  public
       property DataProvider : TmDataProvider read FDataProvider write FDataProvider;
     end;
  +
  +  { TmInstantQueryLookupFilterConditionPanel }
  +
  +  TmInstantQueryLookupFilterConditionPanel = class(TmBaseLookupFilterConditionPanel)
  +  strict private
  +    FInstantQueryManager: IVDInstantQueryManager;
  +  protected
  +    procedure OnShowLookup (Sender: TObject); override;
  +  public
  +    property InstantQueryManager : IVDInstantQueryManager read FInstantQueryManager write FInstantQueryManager;
  +  end;
  +
   
     { TmExecuteFilterPanel }
   
  
positive.code:   Result := VarIsNull(FCurrentValue);
  end;
  
  { TmLookupFilterConditionPanel }
  
  procedure TmLookupFilterConditionPanel.OnEditValueChanged(Sender: TObject);
  begin
  
  end;
  
  procedure TmLookupFilterConditionPanel.OnShowLookup(Sender: TObject);
  var
    lookupFrm: TmLookupFrm;// TmLookupWindow;
    keyFieldName : string;
    tmpVirtualFieldDefs : TmVirtualFieldDefs;
  begin
    if not Assigned(FDataProvider) then
      raise Exception.Create('[TmLookupFilterConditionPanel] Missing DataProvider.');
  
  //  if FValueFieldName = '' then
  //    raise Exception.Create('[TmLookupFilterConditionPanel] Missing ValueFieldName.');
  
    lookupFrm := TmLookupFrm.Create(Self);
    try
  
negative.code:   end;
  end;
  
  function TmBaseLookupFilterConditionPanel.IsEmpty: boolean;
  begin
    Result := VarIsNull(FCurrentValue);
  end;
  
  procedure TmBaseLookupFilterConditionPanel.Clear;
  begin
    FEdit.Text:= '';
    FCurrentValue:= null;
  