indy Server und Client komponente

[youuu]

Entschuldigung, war leider etwas beschäftigt.

Fehler wenn ich vom Server zurück senden möchte ist "Connection Time out"


So sende ich dann zurück:

Delphi-Quellcode:

procedure TForm1.TCPServerExecute(AContext: TIdContext);
begin
  TCPClient.Host := AContext.Binding.PeerIP;
  TCPClient.Connect;
  if TCPClient.Connected then begin
    TCPClient.IOHandler.WriteLn('bla bla');
    TCPClient.Disconnect;
  end;
end;

Also sobald ich eine Nachricht vom Client erhalte, setze ich als Host seine Ip ein und möchte zurück senden.