急求助！490分全部给一个人！

现有工具DELPHI 7 想编一个能截取指定程序数据包的程序。（如果不费力可以加一个分析的功能）这个也是我学delphi的目的
有人能给一段完整的代码么？注释一定要加的多些。因为我连WINSOCK控件都没找到在哪。第一次用这个。这个问题我出全部可用分490分。