IOC_VENDOR = $18000000;
  SIO_KEEPALIVE_VALS = DWORD(IOC_IN or IOC_VENDOR or 4);


type
  tcp_keepalive = record
    onoff: u_long;
    keepalivetime: u_long;
    keepaliveinterval: u_long;
  end;