Delphi 判断TImage是否为空：
1）非空 Image1.Picture.Graphic <> nil
2）为空 Image1.Picture.Graphic = nil
注意不能用Image1.Picture 来判断。

Image1.Picture.Graphic即可直接赋值也可用Assign。
Image1.Picture不能直接赋值，只能用Assign。

Image1.Picture.Graphic  可包含多种格式的图像。
Image1.Picture.Bitmap仅包含Bitmap图像。

http://blog.csdn.net/xinzheng_wang/article/details/7841831