seudoHead.SourIP:=psourip;
seudoHead.DestIP:=pdestip;
seudoHead.Pad:=0;
seudoHead.Proto:=IP_PROTO_TCP;
wlen:=len+TCP_HEAD_BYTE_LEN;
seudoHead.Len:=swaps(wlen);
for i:=1 to wlen do helpbuffer[PSEUDO_HEAD_LEN+i]:=buffer[ETHER_HEAD_LEN+IP_HEAD_BYTE_LEN+i];
wlen:=len+TCP_HEAD_BYTE_LEN+PSEUDO_HEAD_LEN;
pTCPHead.ChkSum:=CheckSum(pword(@HelpBuffer),wlen);