Loading a BLOB into a TPicture

This is the code I used to load a picture (in an image component).

 procedure OpenBitmap;
   var bs:TBlobStream;
 begin
   bs := nil;

   try
     bs := TBlobStream.Create(Blob,bmRead);
     image1.picture.bitmap.LoadFromStream(bs);
   finally
     bs.free;
   end;
 end;

Marc