program tw35965;

begin
  if TObject.UnitName <> 'System' then
    Halt(1);
end.