Es curioso pero este código solamente me funciona si contiene una imagen, en caso contrario me arroja un error.
Código Delphi
[-]if Not Image1.Picture.Graphic.empty then
ShowMessage('Si contiene imagen')
else
ShowMessage('No contiene ninguna imagen');
Un Saludo.