TStrings senden/empfangen über Indy

[sakura]

So auf die Schnelle würde ich sagen:

Code:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var sl: tstrings;
begin
with AThread.Connection do
begin
sl:=tstrings.create;
readstrings(sl);
[color=#ff003f]memo1.Lines.Assign(sl);[/color]
sl.Free;
end;
end;

......