procedure TWebModule1.WebModule1WebActionItem3Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  ParamsList:TParamList;
begin
   begin
   ParamsList:=TParamList.create;
   try try
    ParamsList.addParameters(request.ContentFields);
    adotable1.Open;
    adotable1.Append;
    adotable1.FieldByName('姓名').Value:=ParamsList['myname'];
    adotable1.FieldByName('性别').Value:=ParamsList['sex'];
    adotable1.FieldByName('生日').Value:=ParamsList['birthday'];
    adotable1.FieldByName('QQ').Value:=ParamsList['qqnumber'];
    adotable1.FieldByName('手机').Value:=paramsList['phone'];
    adotable1.FieldByName('家庭住址').Value:=ParamsList['address'];
    adotable1.Post;
   except
     handled:=True;
   finally
     ParamList.Free;
     adotable1.Close;
end;
end;
这段程序有什么问题吗?(我的想法是想通过网页提交内容增加数据库的记录)请高手指点!