idtcp передача TstringList

[kostya67]

Проблема в приеме у сервера stringlist

пишу так

Клиент

procedure TForm6.sButton1Click(Sender: TObject);
var
  str:TstringList;
  ass:string;
begin
str:=TstringList.Create;
str.AddStrings(smemo1.Lines);
smemo1.Lines.AddStrings(str);
form1.IdTCPClient1.WriteLn('wait_add');
ass:=form1.IdTCPClient1.ReadLn;
if ass = 'wait_next' then
begin
form1.IdTCPClient1.WriteStrings(str);
 end;

end;

Сервер

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  kill:string;
  hoststs:TmemoryStream;
  p:string;
  index:integer;
  list:TstringList;
  ans:string;
  wait_add:Tstrings;
begin
a := AThread.Connection.ReadLn();
if a = 'wait_add' then
begin
wait_add:=Tstringlist.Create;
Athread.Connection.WriteLn('wait_next');
 Athread.Connection.ReadStrings(wait_add);
 wait_add.SaveToFile('saffs.txt');
end;

файл сохраняется ПУСТОЙ=(