anchor.diff:      function Check : boolean;
       procedure Init (aFormulas : TmFormulaFields);
       procedure UpdateFormulaFields;
  -
     end;
   
   implementation
   
   uses
  -  mDBGrid;
  +  Graphics,
  +  mUtility, mMathUtility;
   
   {$R *.lfm}
   
  
positive.code:   begin
      tmpNames := TStringList.Create;
      try
        FDataset.DisableControls;
        try
          FDataset.First;
          while not FDataset.Eof do
          begin
            tmpString := UpperCase(Trim(FDataset.FieldByName('FldName').AsString));
            tmpNames.Add(tmpString);
  
            tmpFormula := FFormulas.FindByName(tmpString);
            if not Assigned(tmpFormula) then
              tmpFormula := FFormulas.Add;
            tmpFormula.Name:= tmpString;
            if FDataset.FieldByName('FldType').AsString = 'DOUBLE' then
              tmpFormula.DataType:= fftFloat
            else if FDataset.FieldByName('FldType').AsString = 'DATE' then
              tmpFormula.DataType:= fftDateTime
            else
            begin
              tmpFormula.DataType:= fftString;
              tmpFormula.Size:= FDataset.FieldByName('FldSize').AsInteger;
            end;
  
            tmpFormula.Formula:= trim(FDataset.FieldByName('FldFormula').AsString);
  
            FDataset.Next;
          end;
  
          tmpToBeDeleted := TStringList.Create;
          try
            for i := 0 to FFormulas.Count - 1 do
            begin
              if tmpNames.IndexOf(FFormulas.Get(i).Name) < 0 then
                tmpToBeDeleted.Add(FFormulas.Get(i).Name);
            end;
            for i := 0 to tmpToBeDeleted.Count - 1 do
            begin
              FFormulas.Delete(tmpToBeDeleted.Strings[i]);
            end;
  
          finally
            tmpToBeDeleted.Free;
          end;
        finally
          FDataset.EnableControls;
        end;
      finally
        tmpNames.Free;
  
negative.code: 
  procedure TFormulaFieldsConfFrame.AddButtonClick(Sender: TObject);
  begin
    FGrid.InsertRowWithValues(FGrid.RowCount, ['NEWFIELD', 'DOUBLE', '', '1']);
  end;
  
  procedure TFormulaFieldsConfFrame.RemoveButtonClick(Sender: TObject);
  begin
    if FGrid.RowCount = 0 then
      exit;
  
    if FGrid.Row >= 0 then
    begin
      FGrid.DeleteRow(FGrid.Row);
    end;
  end;
  
  procedure TFormulaFieldsConfFrame.OnSelectEditor (Sender: TObject; aCol, aRow: Integer; var Editor: TWinControl);
  begin
    if aCol = IDX_TYPE then
    begin
      if (Editor is TCustomComboBox) then
      begin
  