[GrabbeR]

Подскажите как решить задачу. Собственно, на сервере и клиенте есть StringGrid с одинаковым количеством столбцов (5) и строк. Клиенту нужно отправить на сервер данные конкретной строки.
Делаю так, но на сервере все данные принимаются в одну ячейку скопом.

На клиенте:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  cc, rc, c, r: Integer;
begin
  cc := Form1.StringGrid1.ColCount;
  rc := Form1.StringGrid1.RowCount;
  for r := 1 to rc -1 do
    for c := 0 to cc -1 do
  Form1.ClientSocket1.Socket.SendText(Form1.StringGrid1.Cells [c,r]);
end;

На сервере:

Код:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  cc, rc, c, r: Integer;
begin
  cc := Form1.StringGrid1.ColCount;
  rc := Form1.StringGrid1.RowCount;
  for r := 1 to rc -1 do
    for c := 0 to cc -1 do
  Form1.StringGrid1.Cells [c,r] := Socket.ReceiveText;
end;