Тест на знание Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
type
  TValueObj = class
    Value: Variant;
  end;
 
var
  aObj: TValueObj;
begin
  aObj := nil;
 
  {$B-} // In the {$B-} state, the compiler generates code for short-circuit Boolean expression evaluation, which means that evaluation stops as soon as the result of the entire expression becomes evident in left to right order of evaluation.
  if Assigned(aObj) and  not aObj.Value then
    Writeln('True')
  else
    Writeln('False');
end.