Record via Write- und Readbuffer

[Kalle_XXXX]

Habe soeben mein OnExecute zur Fehlersuche angepasst

Code:

procedure TKomponents.IdTCPServer1Execute(AThread: TIdPeerThread);
var
   CB     :String;
   BuffSize :Integer;
begin
//       CB := athread.Connection.ReadLn('');
//       Fr_MainServer.Memo1.lines.add(CB);
//         Athread.Connection.ReadBuffer(Configs, sizeof(Configs)); // ReceiveBuf(buff, High(Buff) - Low(Buff));
         Fr_MainServer.Memo1.lines.add('Servername vor Execute:... '+Configs.Servername);
         BuffSize :=  Athread.Connection.RecvBufferSize;
         Athread.Connection.ReadBuffer(Configs, BuffSize);
         Fr_MainServer.Memo1.lines.add('Servername nach Execute:... '+Configs.Servername);
end;

Irgendwo Beim Auslesen des Buffers bleibt er hängen und gibt die 2. Zeile ('Servername nach Execute...') nicht aus