{ $OPT= -S2
}
var
   o : tobject;

begin
   if assigned(o) then
     halt(1);
end.