如何安裝*.pas控件

我在網上看到一控件的源碼如下,請問是否把這些源碼另存為shareErr.pas即可調用呢?
還是需要做什麼,請指教.
unit ShareErr;{ ShareErr v2.0
 Translation of lmerr.h with a nice little function at
 the end...  By Jerry Ryle. This is free stuff, but I'll
 take donations ;) email me if you make it better -- [email protected]
}interfaceCONST  NERR_Success = 0; { Success -- No Error }  NERR_BASE = 2100;{**********WARNING *****************
 * The range 2750-2799 has been    *
 * allocated to the IBM LAN Server *
 ***********************************}{**********WARNING *****************
 * The range 2900-2999 has been    *
 * reserved for Microsoft OEMs     *
 ***********************************}  { UNUSED BASE+0 }
  { UNUSED BASE+1 }
  NERR_NetNotStarted = (NERR_BASE + 2);
  NERR_UnknownServer = (NERR_BASE + 3);
  NERR_ShareMem = (NERR_BASE + 4);
  NERR_NoNetworkResource = (NERR_BASE + 5);
  NERR_RemoteOnly = (NERR_BASE + 6);
  NERR_DevNotRedirected = (NERR_BASE + 7);
  { UNUSED BASE+8 }
  { UNUSED BASE+9 }
  { UNUSED BASE+10 }
  { UNUSED BASE+11 }
  { UNUSED BASE+12 }
  { UNUSED BASE+13 }
  NERR_ServerNotStarted = (NERR_BASE + 14);
  NERR_ItemNotFound = (NERR_BASE + 15);
  NERR_UnknownDevDir = (NERR_BASE + 16);
  NERR_RedirectedPath = (NERR_BASE + 17);
  NERR_DuplicateShare = (NERR_BASE + 18);
  NERR_NoRoom = (NERR_BASE + 19);
  { UNUSED BASE+20 }
  NERR_TooManyItems = (NERR_BASE + 21);
  NERR_InvalidMaxUsers = (NERR_BASE + 22);
  NERR_BufTooSmall = (NERR_BASE + 23);
  { UNUSED BASE+24 }
  { UNUSED BASE+25 }
  { UNUSED BASE+26 }
  NERR_RemoteErr = (NERR_BASE + 27);
  { UNUSED BASE+28 }
  { UNUSED BASE+29 }.......
.....
.....