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
  r: Integer;
  st : TStringList;
begin
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  st:=TStringList.Create;
  st.Text:=Socket.ReceiveText;
  with StringGrid1 do begin
   RowCount:=st.Count;
   for r := 1 to RowCount -1 do
    Rows[r].CommaText:=st[r];
  end;
  st.free;
end;

[phomm]

  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  st:=TStringList.Create;
  st.Text:=Socket.ReceiveText;
  StringGrid1.ColCount:=st.Count; // я предполагаю, что так
  StringGrid1.Rows[StringGrid1.RowCount - 1].CommaText:=st[r];
  st.free;

Примерно так, если я верно понял. А вообще странно, как это Вы сами такой код написали, где одновременно таблица увеличивается на строку, а потом устанавливается вручную кол-во строк по ответу (из стринглиста).
Возможно, Вы перепутали, и надо не RowCount ставить, а ColCount ?

[GrabbeR]

Сообщение от phomm

  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  st:=TStringList.Create;
  st.Text:=Socket.ReceiveText;
  StringGrid1.ColCount:=st.Count; // я предполагаю, что так
  StringGrid1.Rows[StringGrid1.RowCount - 1].CommaText:=st[r];
  st.free;

Да, но так передаются из всей таблицы только 0 и 1 столбец, остальные нет.

[phomm]

StringGrid1.Rows[StringGrid1.RowCount - 1].CommaText:=st[r];

Эта строчка калькирована с Вашей аналогичной строки (после ] я даже не смотрел на смысл и оставил это на Ваше усмотрение), возможно, правильней будет

StringGrid1.Rows[StringGrid1.RowCount - 1].Text := st;

но не ручаюсь.

Энивей, без проекта, я не могу дать 100% работающий код, а только мысль, как можно пойти, не решение, которое только скопипастить, голову тоже надо включать.

Вы бы, кстати, сперва сделали внесение данных в таблицу из статичного источника и отладили, ибо это проблема просто форматирования данных при отображении, а потом уж пробовали прицепить серверное получение данных.