{ %fail }
{$mode objfpc}
{$x-}

begin
  tobject.create;
end.