Startschwierigkeiten bei Chatprogramm

[Zacherl]

Ich mache das immer so:

Delphi-Quellcode:

procedure TForm1.ServerSocketClientRead(Sender: TObject; Socket: TCustomWinSocket);
var s: string; 
begin
  s := Socket.ReceiveText; 
  Memo1.Lines.Add(s); 
end;

Klappt (bei mir) eigentlich immer.