anchor.diff:        *)
   
         FSummaryManager.Refresh;
  -
  -      Self.RefreshSummaryPanel;
       end;
     end;
   end;
  
positive.code:   end;
  end;
  
  procedure TmDBGrid.RefreshSummaryPanel;
  var
    i : integer;
    str, separator : String;
  
negative.code:           finally
              checkedValues.Free;
            end;
  
            Self.FSummaryManager.Refresh;
          end;
        finally
          dlg.Free;
  