Indy 9 Server Klient Problem (Verbindung)

[axelf98]

Hallo!
Ich schreibe ein Serverporgramm wo ein Klient eine Nachricht hinschickt.
Klient: REQUEST_LOGIN
Server bekommt das mit und sendet ihm darauf hin eine kleine Datei zu.

Soweit bin ich bis jetzt.
Nachricht beim Server Request_Login kommt an. Er versucht dem Klienten zu antworten. Diese Antwort kommt nicht an.

Senden beim Klienten sieht so aus:

Delphi-Quellcode:

procedure TServerClientFenster.BefehlSenden(pBefehl: String);
begin
     if TCPClient.Connected then
     begin
         LoggeVerbindungen('Sende Befehl '+TCPClient.Host+' : '+inttostr(TCPClient.Port)+' :' +pBefehl);
         TCPClient.WriteLn(pBefehl);
     end;
end;

Beim Empfänger arbeite ich mit dem TIdPeerThread der beim ONExecute ankommt:

Delphi-Quellcode:

procedure TServerClientFenster.TCPServerExecute(AThread: TIdPeerThread);
var
    Command : String;
begin
     Command := AThread.Connection.ReadLn(#$A,5500);

     Athread.Connection.WriteLn('Blubb');   // Das kommt nicht an

end;

Ich hab die Vermutung, dass man nicht sofort an den TIDPeerThread wieder etwas senden kann. Wie kann ich dem Klienten antworten?
Er ist auf jeden Fall erreichbar, es gibt keine Firewall!

Danke für Hinweise