procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var Page: tstringlist;
  begin
    Page:= tstringlist.Create;

   Page.Add('Method =  '+  Request.Method+'<br>' );
   Page.Add('ProtocolVersion =  '+  Request.ProtocolVersion+'<br>' );
   Page.Add('URL =  '+  Request.URL+'<br>' );
   Page.Add('Query =  '+  Request.Query+'<br>' );
   Page.Add('QueryFields =  '+  Request.QueryFields.Text+'<br>' );
   Page.Add('PathInfo =  '+  Request.PathInfo+'<br>' );
   Page.Add('PathTranslated =  '+  Request.PathTranslated+'<br>' );
   Page.Add('Authorization =  '+  Request.Authorization+'<br>' );
   Page.Add('CacheControl =  '+  Request.CacheControl+'<br>' );
   Page.Add('Cookie =  '+  Request.Cookie+'<br>' );

   Page.Add('Date =  '+  FormatDateTime('yyyy MM-dd,hh:mm', Request.Date)+'<br>' );
   Page.Add('Accept =  '+  Request.Accept+'<br>' );
   Page.Add('From =  '+  Request.From+'<br>' );
   Page.Add('Host =  '+  Request.Host+'<br>' );
   Page.Add('IfModifiedSince =  '+ datetimetostr(  Request.IfModifiedSince) +'<br>' );
   Page.Add('Referer =  '+  Request.Referer+'<br>' );
   Page.Add('UserAgent =  '+  Request.UserAgent+'<br>' );
   Page.Add('ContentEncoding =  '+  Request.ContentEncoding+'<br>' );
   Page.Add('ContentType =  '+  Request.ContentType+'<br>' );
   Page.Add('ContentFields =  '+  Request.ContentFields.Text+'<br>' );
   Page.Add('ContentLength =  '+  inttostr(Request.ContentLength)+'<br>' );
   Page.Add('ContentVersion =  '+  Request.ContentVersion+'<br>' );
   Page.Add('Content =  '+  Request.Content+'<br>' );
   Page.Add('Connection =  '+  Request.Connection+'<br>' );
   Page.Add('DerivedFrom =  '+  Request.DerivedFrom+'<br>' );
   Page.Add('Expires =  '+datetimetostr(   Request.Expires)+'<br>' );
   Page.Add('Title =  '+  Request.Title+'<br>' );
   Page.Add('RemoteAddr =  '+  Request.RemoteAddr+'<br>' );
   Page.Add('RemoteHost =  '+  Request.RemoteHost+'<br>' );
   Page.Add('ScriptName =  '+  Request.ScriptName+'<br>' );
   Page.Add('ServerPort =  '+  inttostr( Request.ServerPort)+'<br>' );

    Response.Content:=Page.Text;
    Page.Free;
end;