anchor.diff:      Self.Value:= aSourceField.AsString;
   end;
   
  +procedure TNullableAnsiString.Assign(const aValue: String; const aBlankStringMeansNull: boolean);
  +begin
  +  if aBlankStringMeansNull and (aValue = '') then
  +    Self.IsNull:= true
  +  else
  +    Self.Value:= Utf8ToAnsi(aValue);
  +end;
  +
   function TNullableAnsiString.AsVariant: Variant;
   begin
     if Self.FIsNull then
  
positive.code:       class function CreateNew(): TNullableAnsiString; overload;
  
        procedure Assign(aSource : TNullableAnsiString); overload;
        procedure Assign(aSourceField : TField); overload;
        function AsVariant: Variant; override;
  
        property Value : AnsiString read GetValue write SetValue;
  
negative.code:       class function CreateNew() : TNullableDateTime; overload;
  
        procedure Assign(aSource : TNullableDateTime); overload;
        procedure Assign(aSourceField : TField); override; overload;
        procedure Assign (const aValue : String; const aBlankStringMeansNull : boolean); override; overload;
        function AsVariant: Variant; override;
  
        function AsString (aShowTime : boolean) : String;
  