강좌에 올라와있는 소스인데요 ...
요부분이 에러가 납니다.
혹시 이유를 알수있을까요 ?   

에러 내용은 

Cannot run project unless a host application is defined. use the run|parameters..dialog box
이렇습니다


library HookDLL;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  System.SysUtils, windows, Messages,
  System.Classes;

var
HKbHook : HHOOK;
HShellHook : HHOOK;

Const
HookDataFile = ‘c:\Hook.Dat’;

procedure ReadData;
var
F : TFileStream;
begin
F := TFileStream.Create(HookDataFile, fmOpenRead);
try
F.Read(HKbHook, sizeof(HKbHook));
F.Read(HShellHook, sizeof(HShellHook));
finally
F.Free;
end;
end;

procedure WriteData;
var
F : TFileStream;
begin
F := TFileStream.Create(HookDataFile, fmCreate);
try
F.Write(HKbHook, sizeof(HKbHook));
F.Write(HShellHook, sizeof(HShellHook));
finally
F.Free;
end;
end;

begin
HKbHook := 0;
HShellHook := 0;
end.

{ 갈구리질 프로시저 }
function MyKBHook(Code : Integer; wParam : WPARAM; lParam : LPARAM) : LongInt; stdcall;
begin
{ 파일에 저장된 훅핸들을 읽어온다. }
if HKbHook = 0 then
ReadData;
{ Code값이 0보다 크거나 같을때만 }
{ 갈구리질을 하는 것이 요령. }
if Code >= 0 then
begin
{ 키보드를 몽땅 안눌리게 하자. }
{ 다음 훅체인이 불리지 않도록 하면 끝~! }
Result := Integer(True);
Exit;
end;
Result := CallNextHookEx(HKbHook, Code, wParam, lParam);
end;

{ 키보드 갈구리 찍기 }
function HookKB : Boolean;
begin
HKbHook := SetWindowsHookEx( WH_KEYBOARD, MyKBHook, HInstance, 0);
Result := Boolean(HKbHook);
{ 파일에 훅핸들 쓰기 }
WriteData;
end;

{ 키보드 갈구리 뽑기 }
function UnHookKB : Boolean;
begin
{ 파일에 저장된 훅핸들을 읽어온다. }
if HKbHook = 0 then
ReadData;
Result := UnhookWindowsHookEx(HKbHook);
end;

{ 셀 갈구리질 }
function MyShellHook(Code : Integer; wParam : WPARAM; lParam : LPARAM) : LongInt; stdcall;
var
Buff : array [0..255] of Char;
s : String;
begin
{ 파일에 저장된 훅핸들을 읽어온다. }
if HShellHook = 0 then
ReadData;
{ 윈도우의 생성과 소멸만 괴롭힌다. 자세한 내용은 도움말을 참조할 것. }
if (code = HSHELL_WINDOWCREATED) or
(code = HSHELL_WINDOWDESTROYED) then
begin
{ 윈도우의 클래스명을 읽어온다. Code값이 위의 두개의 값일
경우, wParam은 윈도우의 핸들값이 된다. }
GetClassName(wParam, Buff, SizeOf(Buff));
{ 클래스명이 노트패드라면 메시지박스 보여주기. }
if Buff = 'Notepad' then
begin
if (code = HSHELL_WINDOWCREATED) then
S := '메모장이 실행되는구만요~!'
else
S := '메모장이 끝났구만요~!';
MessageBox(0,PChar(S),'Hook Message',0);
end;
end;
{ 다음 훅체인 호출 }
Result := CallNextHookEx(HShellHook, Code, wParam, lParam);
end;

{ 셀 갈구리 찍기 }
function HookSHELL : Boolean;
begin
HShellHook := SetWindowsHookEx( WH_SHELL, MyShellHook, HInstance, 0);
Result := Boolean(HShellHook);
{ 파일에 훅핸들 쓰기 }
WriteData;
end;

{ 셀 갈구리 뽑기 }
function UnHookSHELL : Boolean;
begin
{ 파일에 저장된 훅핸들을 읽어온다. }
if HShellHook = 0 then
ReadData;
Result := UnhookWindowsHookEx(HShellHook);
end;

Exports
HookKB, HookSHELL, UnHookKB, UnHookSHELL;