[GrabbeR]

Наставьте на путь истинный. Пытаюсь отправить содержимое одной строки на сервер, чтобы тот принял и вставил данные в таком же виде (в разных столбцах). Получилось, но данные отправляются в 1 строку таблицы и при повторной отправке перезаписываются в той же строке.
Хочу сделать, чтобы при получении данных они вставлялись в новую строку (динамически созданную) - подскажите примером.

Отправляю на сервер:

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
  r: Integer; s:string;
begin
  s:='';
  with StringGrid1 do begin
   for r := 0 to RowCount -2 do
    s:=s+Rows[r].CommaText+#13#10;
  end;
  ClientSocket1.Socket.SendText(s);
end;

Получаю:

Код:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  st : TStringList;
  r: Integer;
begin
  st:=TStringList.Create;
  st.Text:=Socket.ReceiveText;
  with StringGrid1 do begin
   RowCount:=st.Count;
   for r := 0 to RowCount -1 do
    Rows[r].CommaText:=st[r];
  end;
  st.free;
end;