//unit TestUnitGlobalsCollector; //interface var testGlobal: integer; //implementation //var testGlobalImpl: integer; type A = class testField: integer; end; begin testGlobal := 777; end.