TImage 的一些操作

//给 image上写数字。  
Image1.Picture.Bitmap.Height:= Image1.Height;
  Image1.Picture.Bitmap.Width:= Image1.Width;

  Image1.Picture.Bitmap.Canvas.Font.Size:=10;
  Image1.Picture.Bitmap.Canvas.TextOut(
     80,
     80,
     ‘1‘)  ;

  Image2.Picture.Bitmap.Canvas.Font.Size:=10;

  Image2.Picture.Bitmap.Height:= Image2.Height;
  Image2.Picture.Bitmap.Width:= Image2.Width;

  Image2.Picture.Bitmap.Canvas.TextOut(
     80,
     80,
     ‘2‘)

//清理掉 image 上的图片
Image1.Picture.assign(nil);