TStrings senden/empfangen über Indy

[Delphi Nub]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: tstrings;
begin
  sl := tstrings.Create;
  sl.add(Edit1.text);
  sl.add(Edit2.text);
  sl.add(Edit3.text);
  with IdTCPClient1 do
  begin
  connect;
  writestrings(sl); //TStrings senden
  disconnect;
  sl.Free;
  
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdTCPServer1.Active:=True;
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var sl: tstrings;
begin
with AThread.Connection do
begin
sl:=tstrings.create;
readstrings(sl);
memo1.Lines:=sl;
sl.Free;
end;
end;

wo liegt der Fehler oder wie kann ich es besser machen?

ich will 3 od. 4 Edits auf einmal via indy TCP senden und empfangen.