Закодировать картинку BASE64

[greenisius]

Здравствуйте. Есть компонент TImage, созданный программно, в котором лежит картинка. Эту картинку нужно закатать в BASE64 и вывести в html файл.

  
  Img := TImage.Create(nil);
  MemStr := TMemoryStream.Create;
  IdEncoderMIME1:= TIdEncoderMIME.Create(nil);
  Img.Canvas.CopyRect(Img.ClientRect, Image.Canvas,
        Rect(i*SubWidth, j*SubHeight, (i+1)*SubWidth, (j+1)*SubHeight));
  Img.Picture.Bitmap.SaveToStream(MemStr); 
  Output := Output + '<img src="data:image/bmp;base64,'
      + IdEncoderMIME1.Encode(MemStr)
        + '" alt="" height="' + SubHeight.ToString +'" width="' + SubWidth.ToString +'">';

Поток MemStr почему-то пустой, хотя я в него загружаю часть картинки(не нулевая, проверено!)

Со многими структурами работаю впервые, не могу найти ошибку.
Может, есть более простой способ кодирования изображения в base64?

И еще бонусный вопрос. Если запилить base64 для bmp и впихать его в браузер, он корректно отработает?

[min@y™]

глянь

284941.jpg

unit DIMimeStreams;

{$I DICompilers.inc}

interface

uses
  {$IFDEF HAS_UNITSCOPE}System.Classes{$ELSE}Classes{$ENDIF};

procedure MimeEncodeStream(
  const InputStream: TStream;
  const OutputStream: TStream);

procedure MimeEncodeStreamNoCRLF(
  const InputStream: TStream;
  const OutputStream: TStream);

procedure MimeDecodeStream(
  const InputStream: TStream;
  const OutputStream: TStream);

procedure MimeEncodeFile(
  const InputFileName: string;
  const OutputFileName: string);

procedure MimeEncodeFileNoCRLF(
  const InputFileName: string;
  const OutputFileName: string);

procedure MimeDecodeFile(
  const InputFileName: string;
  const OutputFileName: string);