delphiUDP协议分包收包的问题

Question

现在有这样的结构体 
id: Dword //编号 
len: Dword //包总长度 
video: array[0..64000]of byte //视频数据 常规包不超过4000字节直接发送，超过4000的分两包发送，发送的时候len/2每个包，第二个包结尾处加了[end]括号里面几个字符。 
我知道怎么发，可是我不知道怎么收，请大侠们赐教！ 十分感谢，谢谢谢谢再谢谢！

Answer 1

直接发得, ID = 1 ,Len = 4000, Data = 4000Byte
var 
  sBuf : array[0..4005] of Byte;
  i    : Integer;
begin
  sBuf[0] := ID;
  sBuf[1] := Hi(Len) ;
  sBuf[2] := Lo(Len);
  //以下填入数据
  for i:=0 to 3999 do 
  begin
    sBuf[i+3] := Data[i]; //数据数组
  end;
  
  if 最后一包
   sBuf[3+4000] := Ord('E')  ;
   sBuf[3+4000+1] := Ord('N')  ;
   sBuf[3+4000+2] := Ord('D')  ;  sendbuffer(sBuf,数据长度)end;