如何修改发送包长度

Question

用WIN SOCKET 进行网络编程.下面的部分程序已定死了.实际发送的数据长度不够120字符,
其发送数据包的长度一直都是120字符.如何根据实际发送数据的长度,动态的修改相应发送数据包长度.
const
  DATA_LENGTH=120;//数据长度
type
  TUDPaction=packed record
    //opcode:byte;//操作码
    //index:word;//序列号
    //Command:byte;//命令字
    data:array[0..(DATA_LENGTH-1)] of char;//数据
  end;发送数据函数为:
sendto(AcceptSock[0], SEND_PACKAGE,sizeof(SEND_PACKAGE), 0, FSockAccept[0], sizeof(FSockAccept[0]))