anchor.diff:    LValues.ViewStyle := vsReport;
     FFieldsList := TStringList.Create;
     FDisplayFieldNames := TStringList.Create;
  +  FFieldDefs := TmVirtualFieldDefs.Create;
   end;
   
   destructor TmLookupPanel.Destroy;
   begin
     FFieldsList.Free;
     FDisplayFieldNames.Free;
  +  FFieldDefs.Free;
     inherited Destroy;
   end;
   
  
positive.code:     finally
        LValues.EndUpdate;
      end;
    end;
  end;
  
  
negative.code:     LValuesFilter: TListViewFilterEdit;
      FOnSelectAValue : TOnSelectAValue;
      FFieldsList : TStringList;
      FFieldDefs : TmVirtualFieldDefs;
  
      FKeyFieldName : String;
      FDataProvider : IVDDataProvider;
  