procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  var
        l1:TStringlist;
begin
        l1:=TStringlist.Create;
       // l1.Add(Request.ReadString(20));
        l1.add(Request.Content);
        l1.SaveToFile('ServerListen.txt');
        Response.Content :='<html><p>欢迎你</p>'+'<p>'+'朋友'+'</p>';
        l1.Free;
        WebModule1.Free;              
  //      WebModule1.Destroy;
end;