RosettaCodeData/Task/Null-object/Delphi/null-object.delphi

  // the following are equivalent
  if lObject = nil then
  ...

  if not Assigned(lObject) then
  ...