TClientSocket verschluckt eine Nachricht

[Quake]

Hallo,

ich habe mir zum Testen zwei kleine Programme geschrieben, ein Server und einen Client. Das funktionier auch alles bis auf eine Kleinigkeit.
Beim Client möchte ich beim Programmstart eine Nachricht an den Server schicken. Dazu rufe ich im FormCraete folgendes auf:

Delphi-Quellcode:

  
  TCPClientSocket.Open;
  iMsgNr:=0;
  TCPClientSocket.Socket.SendText('Test:'+IntToStr(iMsgNr));
  inc(iMsgNr);

Diese Nachricht (iMsgNr=0) kommt nicht beim Server an.
Rufe ich später per Buttonklick SendText auf, empfängt der Server die Nachricht, dann natürlich mit einer högeren iMsgNr. Ich habe auch schon probiert, das SendText und das inc(iMsgNr) im FormCreate auszuklammern, dann wird per Buttonklick auch die iMsgNr 0 gesendet.

Wie kann ich jetzt diese Nachricht aber beim Start meines Programms die Nachricht verschicken.

ciao
Martin