procedure TForm7.btnInsertClick(Sender: TObject);
var
  Buf: TMemValue;
begin
  with DBISAMTable1 do
  begin
    if not Active then
      Open;
    Insert;
    FieldByName('TagName').AsAnsiString := AnsiString('TEST');
    Buf.Length := 2;
    Buf.w := 35;
    FieldByName('Value').SetData(Pointer(@Buf));
    Post;
    FlushBuffers; 
    Buf.i := 0;
    FieldByName('Value').GetData(@Buf);
   Memo1.Lines.Add('GetData.Len=' + IntToStr(Buf.Length) + ' w:' + IntToStr(Buf.w)); //ß- Buffer is empty in XE5, in XE2 Buf.w=35
  end;
end;