Clientverwaltung mit TServerSocket

[Muetze1]

Sende was hin, merke dir die Zeit. Der Empfänger sendet wieder zurück. Wenn du die Antwort wieder empfängst, dann die Zeitdifferenz ausgeben.

Und noch was zum Tutorial bzw. 1. Beitrag: Wenn du mit GetMem() dir den Speicher mit den Records besorgst und im Except-Block wieder freigibst, dann beachte folgendes:

1. Du alloziierst den Speicher und legst den Zeiger in "Connection" ab
2. Du weist den Zeiger erst am Ende der Data Eigenschaft des Sockets zu
3. Der Fehlerfall wird wahrscheinlich _vor_ dieser Zuweisung auftreten

Ok, damit zu dem Problem in dem Code:

Im Fehlerfall versuchst du die Data Eigenschaft frei zu geben, welche dann noch sehr wahrscheinlich NIL ist (somit gibst du gar nix frei)