Dilma, заменив метод в компоненте hiBitmapStream предложенным кодом, запустил оба варианта.

Схема из code_1072.txt выдала Runtime error 216 at 00012479

Схема из code_1073.txt в трех сообщениях выдала: Bitmap: 400
Bitmap: 400 Stream: 0
Bitmap: 400 Strem: 480128