Socket下如何传送这样的结构体

  TLogin = packed record        //登陆服务器结构
    UserName : string[50];
    ThreadNum : string[20];
  end;
  TData = packed record
    Type   :   integer;
    Login :   TLogin;
    List :   TList;
  end;如何把TData写到Buf中，ClientSocket接收到后再还原成TData？
Buf应该如何定义呢？听说Socket传送过程中如果超过8K数据量传输过程中就会出错，怎么样避免呢？