TClientSocket: OnRead wird zu oft aufgerufen

[Andreas Hartmann]

Hier die Prozedur, die beim Client mit OnRead des ClientSockets verbunden ist:

Delphi-Quellcode:

procedure TChatConnectionForm.ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  DecStr: String;
begin
  DecStr := Socket.ReceiveText;
  //Hier Code für die Entschlüsselung einfügen
  ChatWindow.Lines.Append(DecStr);
  ChatWindow.Perform(EM_SCROLLCARET, 0, 0);
end;

MfG, Andreas