新手关于网页的问题(易)(50分)

我想在一个普通的网页上放一个表.和一个输入框.
输入文字并确定后,输入内容就加到表的一行.
说白了和聊天室或留言板差不多.
我怎样能用DELPHI写,并加入网页中.
请说详细点.最好有现成的

你是写CGI吗?
有一个Response的集合可以使用

只要能实现我说的功能就行.
能说具体点吗
怎么找到response

procedure TwmMain.wmMainLoginAction(Sender: TObject; Request: TWebRequest;
Response: TWebResponse; var Handled: Boolean);
Var
CookiesList:TStringList;
ErrMsg:String;
begin
Try
CookiesList:=TStringList.Create ;
With CookiesList do
begin
Add('Name='+self.Request.ContentFields.Values['txtLoginName']);
Add('PWD='+self.Request.ContentFields.Values['txtPWD']);
end;
self.Response.SetCookieField(CookiesList,'','',Now+1,False);
finally
CookiesList.Free ;
end;
with self.qryUeser do
begin
if Active then
Close;
SQL.Clear ;
sqlStr:='Select * from User Where UserName='''+self.Request.CookieFields.Values['Name']+'''';
SQL.Add(sqlStr);
Prepare ;
Open;
if IsEmpty then
begin
ErrMsg:='<p align="center"><font size="4" face="Arial">Can not found the user: <font color="#FF0000">';
ErrMsg:=ErrMsg+self.Request.CookieFields.Values['Name']+'</font></font></p>';
ErrMsg:=ErrMsg+'<p align="center"><font size="4" face="Arial"><a href="javaScript:history.go(-1)">Return</a></font></p>';
self.Response.Content:=ErrMsg;
end
else
begin
if FieldByName('Password').AsString=self.Request.CookieFields.Values['PWD'] then
begin
self.Response.Content :=self.pgBrwLv.Content ;
end
else
begin
ErrMsg:='<p align="center"><font size="4" face="Arial">The user: <font color="#FF0000">';
ErrMsg:=ErrMsg+self.Request.CookieFields.Values['Name']+'</font> password incorrect!</font></p>';
ErrMsg:=ErrMsg+'<p align="center"><font size="4" face="Arial"><a href="javaScript:history.go(-1)">Return</a></font></p>';
self.Response.Content:=ErrMsg;
end;
end;
end;
end;

我自己写的CGI
你自己看吧

接受答案了.