ContentType="image/bmp" in Delphi laden

[Logic]

Also ich mir die SZCodeBaseX Routine installiert...

und probiere nun folgendes, aber er zeigt mir nur nen leeres (also einfach nix) in meinem Image an:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  strm: TFileStream;
  ss: TStringStream;
  sl: TStringList;
  s: string;
  BMP: TBitmap;
begin
  strm := TFileStream.Create( 'test.bmp', fmCreate );
  sl := TStringList.Create;
  ss := TStringStream.Create(s);
  try
    strm.Position := 0;
    sl.LoadFromFile( 'photo.txt' );
    s := sl.Text;
    SZDecodeBase64(ss, strm);
  finally
    sl.Free;
    ss.Free;
    strm.Free;
    BMP := TBitmap.Create;
    try
      BMP.LoadFromFile('test.bmp');
      Image1.Picture.Assign(BMP);
    finally
      BMP.Free;
    end;
  end;

Wer ne Idee?