Código Delphi [-] if Assigned(Image1.Picture) then {...}
if Assigned(Image1.Picture) then {...}
Código Delphi [-] if (Image1.Picture <> nil) then {...}
if (Image1.Picture <> nil) then {...}