function CreateCalculatedField(AOwner: TComponent; const
      AFieldName: String; ADataType: TFieldType; ASize: Integer=0):
      TField;