请教各位了,问个Delphi中创建web的问题:(0分)

我按照书上：
启动Delphi=》File|New=》New Item=》Web server application
=》选择ISAPI/NSAPI Dynamic Link Library=》双击Web模块=》Add
=》在OnAction出只写了ShowMessage('Hello Every One');
如下例：
type
TWebModule1 = class(TWebModule)
procedure WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
WebModule1: TWebModule1;

implementation

{$R *.DFM}

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
showmessage('Hello Every One');
end;
但编译通不过，请问这是为何？我该如何做呢？（我只想做个简单的测试）
谢谢。

应如下：
response.text:="<h1>hello,world</h1>";
WEB模块通常是接受request,response中响应。
语句应为html 格式。


欢迎多交流！

接受答案了.