Indy Client empfängt echo vom Indy Server

[ashkan19]

hier ist mein Server:

Delphi-Quellcode:

procedure TForm1.TCPServerDisconnect(AContext: TIdContext);
begin
Memo1.Lines.Add('Verbindungsabbruch: '+AContext.Binding.PeerIP);
end;

procedure TForm1.TCPServerExecute(AContext: TIdContext);
begin
memo1.Lines.Add('Nachricht: '+AContext.Connection.IOHandler.ReadLn);
end;

end.

und hier ist mein Client:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
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)');
  TCPClient.Disconnect;

end;

end;