kann bei OnConnect keine TStrings liste übergeben

[DeddyH]

Delphi-Quellcode:

Nachricht.Nickname := 'Hello';
Nachricht.More := TStringList.Create;
try
  Nachricht.More.Assign(Listbox1.Items);
  Socket.SendBuf (Nachricht, SizeOf(Nachricht));
finally
  Nachricht.More.Free;
end;

Mal so versucht? Wobei ich jetzt nicht ganz sicher bin, ob nicht nur der Zeiger auf das Objekt übertragen wird. In dem Fall muss man sich etwas anderes überlegen.