Measuring data traffic flow over server/client socket in delphi?

i am making a program that sends data between a server program and its clients. They all use the server and client socket components found in Delphi! I have looked on the Internet and cannot find a way on how to measure how much data has been transferred through a socket! Any help, especially开发者_开发知识库 some code (pascal/Delphi), would be very much appreciated!

here you have a full example http://delphi.about.com/od/fullcodeprojects/l/aa112903a.htm

If you use win/*nix API sockets (not a special libraries) you have to count returns from recv and send functions.

total_data = 0;
...
...
get_data = recv(...)
total_data = total_data + get_data
...
send_data = send(...)
total_data = total_data + send_data

Magenta Systems has a free set of components that can monitor network traffic using either raw sockets or WinPcap.

Update:

From your comment to RBA's response: The Magenta components let you identify and differentiate between different IP addresses and services (ports).

I keep stats on all my TCP traffic to the byte. Every time I send data I update the stats and every time I receieve data I update the stats. This is accurate to one byte and requires only a few lines of code. And it does not rely on any particular TCP components. Why is doing it this way so hard?