Расследование аварии Delphi-приложения

// Определите реальную гарантию в StackSymbols.
program StackSymbols;
uses System.SysUtils;
procedure Level3;
begin
  raise Exception.Create('failure');
end;
procedure Level2; begin Level3; end;
procedure Level1; begin Level2; end;
begin
  Level1;
end.

// Проследите фактическое поведение ArchitectureGuard.
program ArchitectureGuard;
uses System.SysUtils;
type
  ICrashReporter = interface
    procedure Capture(E: Exception; const OperationId: string);
  end;
  IResourceOwner = interface
    procedure Shutdown;
  end;
begin end.

// Определите реальную гарантию в DebtInventory.
program DebtInventory;
type
  TIncidentCause = record
    Symptom: string;
    MissingOwner: string;
    MissingTelemetry: string;
    MissingTest: string;
  end;
begin end.

// Проследите фактическое поведение MinimalIncidentFix.
program MinimalIncidentFix;
uses System.SysUtils;
function ReadCount(P: PInteger): Integer;
begin
  if P = nil then
    raise EArgumentNilException.Create('P');
  Result := P^;
end;
begin end.

// Отделите правило языка от удачного запуска ResourceLeakKinds.
program ResourceLeakKinds;
uses Winapi.Windows, Vcl.Graphics;
var Brush: HBRUSH; Bitmap: TBitmap;
begin
  Brush := CreateSolidBrush(RGB(10, 20, 30));
  Bitmap := TBitmap.Create;
  Writeln(GetGuiResources(GetCurrentProcess, GR_GDIOBJECTS));
end.

// Проследите фактическое поведение AccessViolationCase.
program AccessViolationCase;
type
  TWorker = class
    Value: Integer;
  end;
var W, Alias: TWorker;
begin
  W := TWorker.Create;
  Alias := W;
  W.Free;
  W := nil;
  Writeln(Alias.Value);
end.