------------ Дoбавленo в 15.51:
А вообще-то, не очень правильно. Я посмотрел, что saveToStream не записывает пустой битмап, так что, телодвижения с созданием пустого битмапа не имеют никого толку и достаточно было сделать так
data_bitmap:
begin
bd := ToBitmap(dt);
if bd <> nil then
bd.saveToStream(st);
end;