请问delphi如何编写sniff啊？

kind

用delphi获得打开网页时，发送出去的报文，请问如何实现？
关键是第一行 get 这行 还有自定义的行ssauth等  我不知道怎么获得

GET /m?ct=134217728&tn=baidusg,Don't%20Go%20Away%20Oasis&word=wma HTTP/1.1
Accept: */*
Accept-Language: zh-cn
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
Host: 202.108.23.172
Connection: Keep-Alive