One of the issues I've encountered recently is code like this:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
type
  ISomeIntf = interface procedure SomeMethod; end;
  TSomeClass = class(TInterfacedObject, ISomeIntf)
  private
    FValue: Integer;
    FSomeValue: string;
  public
    constructor Create;
    procedure SomeMethod;
  end;
 
var
  SomeClass: TSomeClass;
 
procedure DoSomething(ASomeIntf: ISomeIntf);
begin
  ASomeIntf.SomeMethod;
end;
 
procedure Setup;
begin
  SomeClass := TSomeClass.Create;
end;
 
procedure InAnotherRoutine;
begin
  DoSomething(SomeClass);
end;
 
procedure DoAnotherThing;
begin
  SomeClass.SomeMethod; // that references Self
end;
 
{ TSomeClass }
 
constructor TSomeClass.Create;
begin
  FValue := 12345;
  FSomeValue := 'Some important stuff';
end;
 
procedure TSomeClass.SomeMethod;
begin
  WriteLn(FValue);
  WriteLn(FSomeValue);
end;
 
begin
  Setup;
  InAnotherRoutine;
  DoAnotherThing;
  InAnotherRoutine;
end.

What happens when the call to DoSomething in AnotherRoutine finishes, and a call is made to DoAnotherThing, which calls SomeMethod? Copy and paste the above code into a new console program, and find out by running it!