Frage-Antwort über IPTcp

[KlimasDavid]

Hallo,

Ich hab ein kleinen Client-Server programm (nach dem Chat-Beispiel). Nun will ich, dass der Client eine Anfrage an den Server schickt und dann eine Antwort bekommt.

Client :

Delphi-Quellcode:

procedure TMainForm.QuestionButtonClick(Sender: TObject);
VAR
    Str1:    String;
BEGIN
    ServerConnection.WriteLn('#Question');
    Str1 := ServerConnection.ReadLn('#');
END;

Und der Server :

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
VAR
    Str1:    String;
BEGIN
    Str1:=AThread.Connection.Readln;
    If Str1 = '#Question' then
         AThread.Connection.WriteLn('#Reponse');
    ...
END;

Das Problem ist nun, das der Client wartet, obwohl er die antwort schon bekommen hat. Wie kann ich die Verbindung zum Server offen lassen und gleichzeitig im Programm weiter gehen?

Danke für eure Hilfe