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