// 动态生成位图 //////////////////////////////////
  MyBMP := TBitmap.Create;
  ......// 在 TImage 中显示 /////////////////////////////////
  Image1.Picture.Bitmap.Assign(MyBMP);
  ......// 释放 ///////////////////////////////
  bmp.free;