unit GlobalHdr; interface type TGlobalInfo = record GlobalProcesses: integer; GlobalThreads: integer; SharedNumber: integer; end; implementation end.