Indy Client empfängt echo vom Indy Server

[Edelfix]

So in etwa:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  tcStart: Cardinal;
  aWartezeit: Cardinal;
begin
  TCPclient.Port:=strtoint(edit3.Text);
  TCPclient.Host:= edit2.Text;
  TCPClient.Connect;
  if TCPClient.Connected then
  begin
    //stringtohexstr(edit1.text);
     TCPClient.IOHandler.WriteLn(edit1.Text);
     TCPClient.IOHandler.WriteLn(string2hex(edit1.Text)+' (in Hexadezimal)');
    //--
    tcStart := GetTickCount;
    aWartezeit := 5000; // 5sek.
    while (GetTickCount<=tcStart+aWartezeit) do
    begin
      Application.ProcessMessages;
      Sleep(300);
    end;
    //--
    TCPClient.Disconnect;
  end;
end;