Client-server Sockets Stringgrid

[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;

[min@y™]

Цитата GrabbeR @ 15.12.14, 20:35

Хочу сделать, чтобы при получении данных они вставлялись в новую строку (динамически созданную)

почему я не вижу код типа вот такого?

RowCount:= RowCount + <кол-во_принятых_строк>;

Добавлено 15.12.14, 20:49
Вообще, всё как-то криво выглядит. Я б так делать не стал, мучение одно.

[GrabbeR]

Цитата min@y™ @ 15.12.14, 20:47

То понятно, мня интересует как сделать запись в каждый следующий столбец? В этом участке.

  with StringGrid1 do begin
   RowCount:=st.Count;
   for r := 0 to RowCount -1 do
    Rows[r].CommaText:=st[r];
  end;