怎么样调用DLL动态连接库

unit CPUID;interface
const
  ID_BIT = $200000;   // EFLAGS ID bit
  
type
  TCPUID = array[1..4] of Longint;
  TVendor = array [0..11] of char;function IsCPUID_Available : Boolean; register;
function GetCPU_ID : TCPUID; assembler; register;
function GetCPUVendor : TVendor; assembler; register;
function Decrypt(const s: string; key: word): string; stdcall;implementation
function IsCPUID_Available; external 'GetCPUID.DLL' name 'IsCPUID_Available';
function GetCPU_ID; external 'GetCPUID.DLL' name 'GetCPU_ID';
function GetCPUVendor; external 'GetCPUID.DLL' name 'GetCPUVendor';
function Decrypt(const s: string; key: word): string; external 'GetCPUID.DLL' name 'Decrypt';
我才学怎么样调用DLL动态连接库，我这是写的定义接口单元。
function Decrypt(const s: string; key: word): string; stdcall;
function Decrypt(const s: string; key: word): string; external 'GetCPUID.DLL' name 'Decrypt';
但在外部调用时出错，我是不是写错了，请指教！