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