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