TTCPHdr = packed record
IPHeader : TIPHdr;
Source,
Destination : WORD;
Seq,
Ack : DWORD;
Off_Rsvd : UCHAR;
Rsvd_Flags : UCHAR;
Window : WORD;
Checksum : WORD;
UrgPoint : WORD;
end;