anchor.diff:    keyFieldName : string;
     tmpVirtualFieldDefs : TmVirtualFieldDefs;
   begin
  -  if FKeyFieldName = '' then
  -    raise Exception.Create('[TmLookupFilterConditionPanel] Missing KeyFieldName.');
  -  if FValueFieldName = '' then
  -    raise Exception.Create('[TmLookupFilterConditionPanel] Missing ValueFieldName.');
  -
  -  if FDisplayLabelFieldNames.Count = 0 then
  -    raise Exception.Create('[TmLookupFilterConditionPanel] Missing DisplayLabelFieldNames.');
  -
     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
  
positive.code:         tmpVirtualFieldDefs.Free;;
        end;
      end;
  
      if FKeyFieldName <> '' then
        keyFieldName := FKeyFieldName
  
negative.code:     FValueType : TmEditFilterValueType;
      FDataProvider: TmDataProvider;
      FKeyFieldName : string;
      //FValueFieldName : string;
      FLookupFieldNames : TStringList;
      FDisplayLabelFieldNames : TStringList;
      FOnFillVirtualFieldDefs : TmLookupFilterCondizionOnFillVirtualFields;
  