我的代码有什么问题？我尝试保存一个对象，然后再次将其加载到数据库中的一个blob字段，但没有得到任何返回。
记录被保存，但我不能说数据是否被正确写入，因为我不能读回数据。
下面是对象类型：

TMyObject = class
  Name: string;
end;

在这里我试着保存：

procedure TForm1.btnSaveObjectClick(Sender: TObject);
var
  myObject: TmyObject;
  aMemoryStream: TMemoryStream;
begin
  myObject:= TMyObject.Create;
  myObject.Name:=edtName.Text;
  aMemoryStream:= TMemoryStream.Create;
  aMemoryStream.Write(myObject, myObject.InstanceSize);
  aMemoryStream.Position:=0;

  with TSQLQuery.Create(nil) do
  begin
    DataBase:=Conn;
    SQL.Text:='INSERT INTO testtable (data) VALUES (:data)';
    try
      ParamByName('data').LoadFromStream(aMemoryStream, ftBlob);
      ExecSQL;
      TX.CommitRetaining;
    finally
      aMemoryStream.Free;
      myObject.Free;
      Free;
    end;
  end;
end;

尝试再次读取数据：

procedure TForm1.btnLoadObjectClick(Sender: TObject);
var
  myObject: TMyObject;
  BlobStream : TStream;
begin
  with TSQLQuery.Create(nil) do
  begin
    DataBase:=Conn;
    SQL.Text:='SELECT data FROM testtable';
    myObject:= TmyObject.Create;
    try
      Open;
      Last;
      BlobStream:= CreateBlobStream(FieldByName('data'), bmread);
      BlobStream.Position:=0;
      BlobStream.Read(myObject, BlobStream.Size);
      ShowMessage('Stored Name: ' +myObject.Name);
    finally
      myObject.Free;
      Free;
    end;
  end;
end;

BlobStream应该免费吗？