illegale Zuwanderung von Bits

[Evilboyz]

Ich bin am verzweifeln und zweifle an meinem Verstand!
Ich schicke also auf der einen Seite einen Buffer ab und lasse mir die gesendete Datenmenge in ein Textfeld ausgeben:

Code:

gr.text := IntToStr(StrToInt(gr.text)+Socket.SendBuf(sBuffer[1],Length(sBuffer)));

dann Empfange ich den Buffer auf der anderen Seite und lasse mir die Empfangenen Daten in ein Textfeld ausgeben:

Code:

gr.text := IntToStr(StrToInt(gr.text)+Socket.ReceiveLength);

Und siehe da, die Werte stimmen absolut nicht überein!!! Die empfangene Datenmenge ist so ca. bei 20% größer, als die gesendete. Stellt sich die Frage, ob die Bits bei Ihrer Vermehrung auf dem Weg durchs Netz Spaß hatten! Aber Spaß beiseite, ich bin jetzt absolut ratlos, ich habe jetzt 4 Stunden lang den Fehler in meinem Code gesucht und die Fehlerquelle immer weiter eingegrenzt.
Hat einer eine Ahunung, was die Ursache für dieses Problem sein könnte???
meinen Code gibts nochmal ausführlicher im anderen Thread http://www.delphipraxis.net/viewtopic.php?t=2758

PS: Sorry, ich denke der Thread gehört wohl eher unter IP/LAN, habs zu spät bemerkt