procedure THIBitmapStream._work_doWrite;
var
  st:PStream;
  bmp:pbitmap;
begin
   st := ReadStream(_Data,_data_Stream);
   bmp := ReadBitmap(_Data,_data_Bitmap);
   _debug('Bitmap: ' + int2str(bmp.Width));
   if(st <> nil)and(bmp <> nil)then
    begin
      _debug('Bitmap: ' + int2str(bmp.Width) + ' Strem: ' + int2str(st.Size));
      bmp.SaveToStream(st);
      _debug('Bitmap: ' + int2str(bmp.Width) + ' Strem: ' + int2str(st.Size));
    end;
end;