procedure TfrmMain.btnWriteClick(Sender: TObject);
var
  BlobStream: TABSBlobStream;
  MemStream: TMemoryStream;
begin
  MemStream := TMemoryStream.Create;
  try
    ImageEnView1.IO.SaveToStreamJP2(MemStream); //  Program freezes at this line
    //ImageEnView1.IO.SaveToStreamJ2K(MemStream);  // Program freezes at this line
    //ImageEnView1.IO.SaveToStreamJpeg(MemStream);  //  Works properly

    //ImageEnView1.IO.SaveToStream(MemStream, ioJP2); //  Program freezes at this line
    //ImageEnView1.IO.SaveToStream(MemStream, ioJ2K); // Program freezes at this line
    //ImageEnView1.IO.SaveToStream(MemStream, ioJPEG);  //  Works properly
    MemStream.Position := 0;
    //  Now save to blobstream
    with tblMain do
      begin
        Insert;
        BlobStream := TABSBLOBStream(CreateBlobStream(FieldByName('Image'), bmWrite));
        try
          MemStream.SaveToStream(BlobStream);
        finally
          Blobstream.Free;
        end;
        Post;
      end;
  finally
    MemStream.Free;
  end;

end;