Sockets senden/empfangen gesendete Strings nicht

[Jens Schumann]

Hallo

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject); 
begin 
  ServerSocket1.Active:=true;                                            //Verbindungsbutton und    übermitteln, dass jemand dem Chat beitritt 
  Clientsocket1.Active:=true; 
 // sleep(2000); //weg damit
 //  ClientSocket1.Socket.SendText(Nickname.Text+' hat den Chat betreten!'); im OnConnect Event aufrufen
end;