procedure TForm1.Send;
var
 msg:string;
begin
  msg:=edit1.text+#9+edit2.text+#9+Edit3.text.... и так далее....+#9;
  try
    ClientSocket1.Socket.SendText(msg);
  except
  end;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
 Socket: TCustomWinSocket);
var
 msg,s:string;
 n,i:integer;
begin
 msg:=socket.ReceiveText;
 if msg<>'' then
 begin
   if not table1.Active then
   try
     table1.Open;
   except
     exit;
   end;
   i:=0;
   if msg[n] <> #9 then s:=s+msg[n] else
   begin
     try
       table1.Fields.Fields[i].AsString:=s;
     except
     end;
     s:='';
     inc(i);
   end
   table1.Close;
 end;
end;

For n:=1 to length(msg) do