Проверить наличие содержимого в TImage

[Vova777]

Как проверить, есть ли в TImage.Picture какая-либо картинка?

P.S. Это почему не работает:

if Image1.Picture = nil then 
...

[kettanaito]

procedure TForm1.Button1Click(Sender: TObject);
begin
if not Assigned( Image1.Picture.Graphic ) then
label1.caption:='Image is empty' else
label1.caption:='There is an image!'
end;

[fate]

можно так

if Image1.Picture.Graphic=nil then
ShowMessage('пусто');

[SERG1980]

или так

if Image1.Picture.Graphic.Empty then