anchor.diff:          tmpVirtualFieldDefs.Free;;
         end;
       end;
  +
  +    if FDisplayLabelFieldNames.Count = 0 then
  +      FDataProvider.GetMinimumFields(FDisplayLabelFieldNames);
  +    if FDisplayLabelFieldNames.Count = 0 then
  +      raise Exception.Create('[TmLookupFilterConditionPanel] Missing DisplayLabelFieldNames.');
   
       if FKeyFieldName <> '' then
         keyFieldName := FKeyFieldName
  
positive.code:   FValueType:= efString;
    CreateStandardFilterMenu(FLabel, true);
    FKeyFieldName:= '';
    FValueFieldName:= '';
    FOnFillVirtualFieldDefs:= nil;
    FLookupFieldNames := TStringList.Create;
    FDisplayLabelFieldNames := TStringList.Create;
  
negative.code:   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
  