ReceiveBuf empfängt 2 Pakete mit einmal! Wie verhinderen?

[DracoBlue]

Halllo!

Hab nen großes Problem!

Ich nutze die tserversocket und tclientsockt komponenten von delphi 5.

Ich initialisere den client und den server korrekt und das funktioniert auch alles.

Nun mein Problem.

Wenn ich beispielsweise 2 Nachrichten hintereinander verschicke.

Code:

Socket.SendBuf(variabl1e5); // Variable ist 5 Byte groß
Socket.SendBuf(variabl1e4); // Variable ist 4 Byte groß

Und dann bei OnRead dieses beim Server mache

Code:

showmessage(inttostr(Socket.ReceiveLength)); // Wieviel kommt an?

--> Mal wird die aktion 2x ausgeführt, mit ergebnis : 5 und 4
---> Mal wird sie aber nur 1x ausgeführt mit ergebnis : 9

Kann ich irgendwie dafür sorgen, dass die Datenpakete immer einzeln ankommen?

Mit freundlichen Grüßen,
Draco