Socket.ReceiveText in der Send-Funktion abfragen

[turboPASCAL]

Wie währe es mit einem Thread ?

Delphi-Quellcode:

function Ping(IP:string): Boolean;
begin
  Socket1.Socket.SendText('ping,ping my server!');
  // "Prüfe alle 5ms auf Antwort (TimeOut 2sek), wenn erhalten" do // soll wohl ein Kommentar sein !?
    if Antwort = RichtigeAntwort then Result:= True;
end;