TIdTcpHdr = packed record
  tcp_sport: word;
  tcp_dport: word;
  tcp_seq: longword;
  tcp_ack: longword;
  tcp_x2off: byte;
  tcp_flags: byte;
  tcp_win: word;
  tcp_sum: word;
  tcp_urp: word;
  end;