Wat.pas

unit Wat;

interface

type
  TTest = class
    procedure Test;
  end;
  
procedure Example;

implementation

{ TTest }

procedure TTest.Test;
begin
  WriteLn('No runtime exception!');
end;

procedure Example;
var
  LTest : TTest;
begin
  LTest := Nil;

  try
    LTest.Test;
  except
    WriteLn('Runtime exception!');
  end;

  ReadLn;
end;

end.