kann bei OnConnect keine TStrings liste übergeben

[SirThornberry]

auch beim senden macht er es noch falsch. Er sendet weiterhin die Objectreferenz "Nachricht" und nicht den Text "Nachricht.Text".

Delphi-Quellcode:

var
  lText: String;
begin
  lText := ListBox1.Items.Text;
  Socket.SendText(lText, Length(lText));

auf der Gegenseite dann genau so wieder empfangen.

Allerdings machst du seit her wohl einen großen Fehler. Du sendest die Daten ohne irgend ein bestimmtes Format. Das heißt wenn 2 Nachrichten kurz hintereinander gesendet werden kann es schnell mal passieren das diese als eine große Nachricht ankommen. Du müsstest dir also noch ein protokoll oder eine maskierung überlegen.