anchor.diff:  end;
   
   class function TDataSetUtils.CreateField(DataSet: TDataSet;
  -  FieldType: TFieldType; const FieldName: string; ASize: Integer): TField;
  +  FieldType: TFieldType; const FieldName: string; ASize: Integer; ADisplayWidth: Integer): TField;
   begin
       Result:= DefaultFieldClasses[FieldType].Create(DataSet);
       Result.FieldName:= FieldName;
  
positive.code:     Result.DataSet:= DataSet;
      Result.Name:= DataSet.Name + Result.FieldName;
      Result.Size := ASize;
  
      if (FieldType = ftString) and (ASize <= 0) then
        raise Exception.CreateFmt('Size no definido para o campo "%s".',[FieldName]);
  
negative.code: type
    TDataSetUtils = class
    public
      class function CreateField(DataSet: TDataSet; FieldType: TFieldType; const FieldName: string = ''; ASize: Integer=0; ADisplayWidth: Integer = 30): TField;
      class function CreateDataSetField(DataSet: TDataSet; const FieldName: string): TDataSetField;
    end;
  
  