anchor.diff:  implementation
   
   uses
  -  SysUtils, Math, LCLType;
  +  SysUtils, Math, LCLType,
  +  mUtility;
   
   type
     TResultValues = class
  
positive.code:     flex := (Self.Width - 30) / eqWidth;
      LValues.BeginUpdate;
      try
        for i := 0 to LValues.Columns.Count -1 do
        begin
          fn := FFieldsList.Strings[i];
          curFieldDef := FFieldDefs.FindByName(fn);
          if Assigned(curFieldDef) then
          begin
  
negative.code:       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);
  