[juanlaplata]

otra alternativa ...

Código Delphi [-]
if Image1.Picture.Graphic <> nil then
  ShowMessage('Si contiene  imagen')
  else
  ShowMessage('No contiene ninguna imagen');