如何把下面一段pas代码写成一个h文件？？

Question

如何把下面一段pas代码写成一个h文件？？ unit uISystemFun;interface
  const
      MaxSavePoint=100;
  type
      TSavePoint=array[0..MaxSavePoint-1] of Byte;      PProcessInfo=^TProcessInfo;
      TProcessInfo=record
          ProcessId:Cardinal; //进程id
          ProcessName:array[0..19] of char;//进程名称
          CpuUsage:Byte;//cpu占有率
          Memory:Cardinal;//内存占用
          VirtualMemory:Cardinal;//虚拟内存占用
          ThreadCount:Cardinal;//线程数
          NonPageBuffer:Cardinal;//非页面缓冲池
      end;
type
  ISystemFun= interface
   ['{06F7F758-ACA2-4E4B-9037-89E626E39588}']    {brief
     * 得到cpu使用率,返回整数,如返回21,代表cpu占有率为21%
     }
    function GetCpuUsage: integer;    {brief
     * 得到内存使用率,返回整数,如返回21,代表内存占有率为21%
    }
    function GetMemoryUsage: integer;    {brief
    内部可用定时器实现
    * 得到100秒内的cpu占有率
    }
    function GetCpuPoints:TSavePoint;    {brief
     *得到100秒内的内存占用率
    }
    function GetMemoryPoints:TSavePoint;    {brief
     * 根据输入进程ID,得到进程信息,存储在AProcessInfo指针所指内存中
    }
    procedure GetProcessInfo(AprocessId:Cardinal;AProcessInfo:PProcessInfo);    {brief
    *加入监视进程Id
    }
    function AddMonitorProcess(AProcessId:Cardinal):integer;
    //procedure AddMonitorProcess(AProcessId:Cardinal);  end;
implementationend.