Source example 49

unit GlobalHdr;

interface

type
  TGlobalInfo = record
    GlobalProcesses: integer;
    GlobalThreads: integer;
    SharedNumber: integer;
  end;

implementation

end.