anchor.diff:  implementation
   
   uses
  -  SysUtils, Math, LCLType;
  +  SysUtils, Math, LCLType,
  +  mUtility;
   
   type
     TResultValues = class
  
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:     else
        FDataProvider.GetMinimumFields(FFieldsList);
  
      numOfDigits := Length(IntToStr(FDataProvider.Count));
  
      col := LValues.Columns.Add;
      col.Caption:= '#';
      col.Width:= 1;
  
      for i := 0 to FFieldsList.Count -1 do
      begin
        col := LValues.Columns.Add;
  