if (Image1.Picture.Bitmap.Empty) then
  ShowMessage('No Image!')


// For JPEG images:
// Bei JPEG Bildern:

if (Image1.Picture.Graphic = nil) then
   ShowMessage('No Image!')