anchor.diff:        item.Data:= pointer(ptr);
         ptr := ptr + 1;
   
  +      item.Caption := AddZerosFront(i + 1, numOfDigits);
  +
         for k := 0 to FFieldsList.Count - 1 do
         begin
           curDatum := FDataProvider.GetDatum(i);
  
positive.code: 
  procedure TmLookupPanel.Init(const aDataProvider : IVDDataProvider;  const aFieldNames : TStringList; const aKeyFieldName : string; const aDisplayFieldNames : TStringList);
  var
    k, i : integer;
    ptr : UIntPtr;
    col : TListColumn;
    item : TListItem;
  
negative.code:     finally
        LValues.EndUpdate;
      end;
    end;
  end;
  
  